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1. 



ABSTRACT 



THIS PROGRAH IS DESIGNED TO BE USED Br AN EXPERIENCED ENGINEER 
/TECHNICIAN FOR EVALUATION AND DEBUG€ING OF PIAG TAPE DRIVES. 
THE PROGRAN IS CAPABLE OF EXERCISING ANY TAPE DRIVE THAT CAN 
BE OPERATED ON A NASSBUS THROUGH THE TN02 NAG TAPE 

CONTROLLER. AHY TYPE OF TAPE DRIVE; NRZI.PE.7 OR 9 TRACIC HAY BE USED. 
ANY NUMBER OF DRIVES. SINGLE OR NULTIDRIVE SYSTEMS, UP TO EIGHT 
(8), NAY BE TESTED BY A SINGLE EXECUTION OF THE PROGRAN. THIS 
FLEXIBILITY IS POSSIBLE BECAUSE THE PROGRAN HAS NO FIXED PARAMETERS 
OR TESTING SEQUENCE. THE ENTIRE TEST PLAN. INCLUDING PARAMETERS 
AND OPERATING SEQUENCE. IS DETERMINED BY THE OPERATOR THROUGH 
RESPONSES TO TELETYPE REQUESTS AND SETTING OF CONSOLE SWITCHES. 

THE PROGRAM PROVIDES FOR TESTING OF ALL TAPE DRIVE FUNCTIONS 
SUCH AS WRITING. READING. REWINDING. TAPE POSITIONING. EOT - BOT 
SENSING AND ASSUMES A GOOD RH AND TM02. 

HOWEVER: THE RH AND TH02 ARE TESTED SOMEWHAT INTRINSICALLY 
DURING THE TEST CYCLE IN ORDER TO PROVIDE FULL INFORMATION ABOUT 
ANY ERROR CONDITIONS DETECTED. 

DURING A TEST CYCLE, CHECKS ARE MADE FOR STATUS ERRORS. DATA ERRORS. 
POSITION ERRORS, WORD COUNT AND CURRENT MEMORY ADDRESS ERRORS 
WHEREVER APPLICABLE AS DETECTED BY THE RH OR TM02. 



2. REQUIREMENTS (HARDWARE) 



A. ANY PDP-11 PROCESSER 

B. 8K OF CORE 

C. TELETYPE 

D. TM02 TAPE CONTROLLER 

E. 1 TO 8 MAG TAPE DRIVES 

F. MASSBUS CONTROLLER 



3. LOADING PROCEDURE 



USE STANDARD PROCEDURE FOR LOADING BINARY TAPES 
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4. 



(PAGE 2) 
STARTING PROCEDURE 



THERE ARE FOUR (4) STARTING ADDRESSES THAT HAY BE USED; 
200(8), 204(8), 210(8), AND 240(8): 



A. 200(8): 



B. 204(8) 



C. 210(8) 



D. 240(8) 



E. 300(8) 



THIS ADDRESS MUST BE USED ON INITIAL START FROM 

LOAD AS ALL PARAMETERS ARE ENTERED FROM HERE. 

REQUESTS ARE PRINTED ON THE TELETYPE FOR ENTRY OF 

RH STARTING ADDRESS, VECTOR ADDRESS, DRIVE NUNBER(Tn02 ADDRESS), 

SLAVE NUMBER, DENSITY, PARITY, FORMAT, RECORD COUNT .CHARACTER 

COUNT, PATTERN NUMBER, TAPE MARK AND STALL FOR READ, WRITE, 

AND TURNAROUND. ALL REPONSES SHOULD BE MADE IN 

OCTAL AND WITHIN THE LIMITS OF THE PARAMETER. 

A QUESTION MARK (?) WILL BE TYPED IF ANY 

CHARACTER ENTERED IS NOT BETWEEN 0 THRU 7 (OCTAL). 

THE CHARACTER MAY BE RETYPED FOLLOWING THE QUESTION 

MARK. IF THE RESPONSE IS NOT WITHIN ITS LIMITS. A 

QUESTION MARK (?) IS TYPED AND THE ENTIRE RESPONSE 

MAY BE RENTERED. SOME RESPONSES REQUIRE MORE THAN ONE 

(1) CHARACTER, BUT NONE REQUIRES MORE THAN SIX (6). 

RESPONSES OF MORE THAN ONE CHARACTER NEED NOT HAVE 

LEADING ZEROS AND SHOULD BE TERMINATED BY A CARRIAGE 

RETURN IF LESS THAN THE MAXIMUM NUMBER OF CHARACTERS 

IS INPUT. 

THIS ADDRESS SHOULD BE USED ANYTIME A RESTART 

OF THE PROGRAM IS NECESSARY AND THE PARAMETERS 

ENTERED AT THE INITIAL START OF 200(8) NEED NOT 

BE CHANGED. ALSO NOTE THAT ANY DATA PATTERN WHICH 

HAD BEEN GENERATED BY SETTING THE RANDOM DATA 

SWITCH (CONSOLE SWITCH EIGHT) WILL NOT BE OVERWRITTEN 

AND THERFORE IS HELD IN CORE FOR USE UNTIL 

CONSOLE SWITCH EIGHT(8) IS AGAIN SET AND THAT ALL STATISTICS WILL BE RETAINED. 

THIS ADDRESS IS THE SAME AS USING 204(8) IN THAT THE 

PREVIOUSLY SET PARAMETERS ARE USED: HOWEVER, THE DATA 

PATTERN IS RETURNED TO THE FIXED PATTERN ORIGINALLY 

CALLED FOR AT THE 200(8) START AND ALL STATISTICS ARE CLEARED TO ZERO. 

THIS IS A SPECIAL ADDRESS WHICH WILL CAUSE THE 
PROGRAM TO EXECUTE A PREDETERMINED TEST PLAN ON 
ALL AVAILABLE DRIVES AND SLAVES. THE ONLY INPUT 
REQUIRED BY THE OPERATOR IS A RESPONSE TO 
REQUESTS FOR THE RH ADDRESS, VECTOR ADDRESS, 
CONTINUOUS OPERATION OF THE SEQUENCE, AND NRZ ONLY. 

SEE ITEM 11. (PAGE 24) FOR FULL DETAILS 

THIS ADDRESS IS TO BE USED AS A RESTART ONLY 
AND WILL PERFORM JUST AS IN 200(8) EXCEPT THAT 
THE PARAMETER INPUT LIST IS SHORTENED. THE SHORT 
PARAMETER LIST CONSISTS OF DRIVE NUMBER, SLAVE 
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NUMBER. DENSITY, PARITY, FORMAT. RECORD COUNT, 
CHARACTER COUNT. PATTERN, AND TAPE MARK. 
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THE FOLLOWING IS AN EXPLANATION OF THE INITIAL 
START (200 OCTAL) REQUESTS AND RESPONSES: 

REGISTER START: THE RESPONSE REQUIRED FOR THIS REQUEST 
IS TO ENTER THE ADDRESS OF THE FIRST RH 
REGISTER (CS1) AS A SIX DIGIT UNIBUS ADDRESS. 

VECTOR ADDRESS: THE RESPONSE FOR THIS REQUEST 

IS TO ENTER THE INTERRUPT VECTOR ADDRESS 
USED BY THE RH AS A THREE (3) DIGIT ADDRESS. 

DRIVE NUMBER: THE DRIVE NUMBER (MASSBUS ADDRESS 
OF THE TM02} IS ENTERED AS ONE (1) 
OCTAL CHARACTER AND MUST BE WITHIN THE LIMITS 
OF 0 THROUGH 7. 

SLAVE NUMBER: THE SLAVE NUMBER IS ENTERED AS ONE 
(1) OCTAL CHARACTER AND MUST BE 
WITHIN THE LIMITS OF 0 THROUGH 7. 
WHEN THE SLAVE NUMBER HAS BEEN 
ENTERED AND IS LEGAL, THE PROGRAM TESTS 
FOR THE PRESENCE OF A SLAVE OF THAT 
NUMBER. IF THE SLAVE IS AVAILABLE 
A PRINTOUT OF 7 CHANNEL. IP APPLICABLE, 
AND ITS SERIAL NUMBER (IN BCD) 
WILL BE MADE TO ASSIST THE OPERATOR 
IN SETTING OF DENSITY, PARITY, AND FORMAT. 
A CHECK IS MADE FOR THE PROPER SETTING 
OF THE DRIVE TYPE REGISTER: IF WRONG. A 
MESSAGE IS PRINTED FOR INFORMATION ONLY. 
IF THE SLAVE IS NOT AVAILABLE, 
A MESSAGE STATING SO WILL BE 
PRINTED AMD A NEW SLAVE NUMBER 
REQUEST WILL BE ISSUED. WHEN A 
GOOD SLAVE NUMBER HAS BEEN ENTERED, 
REQUESTS FOR OPERATING DENSITY 
PARITY AND FORMAT ARE MADE FOR THAT 
SLAVC AND SHOULD BE RESPONDED TO 
ACCORDING TO THAT PARITICULAR SLAVE'S 
NEEDS. AS MANY AS EIGHT (8) SLAVE 
NUMBER REQUESTS MAY BE USED, HOW- 
EVER, AT LEAST ONE MUST BE USED. 
THE SLAVE NUMBERS AND THEIR RESPECTIVE 
DENSITY, PARITY AND FORMAT MAY BE ENTERED 
IN ANY ORDER. THE INFORMATION FOR 
EACH SLAVE ENTERED IS LOADED INTO A 
TABLE FOR REFERENCE IN TESTING. 
IF LESS THAN EIGHT(8) SLAVES ARE 
REQUIRED, THEN RESPONDING TO THE 
SLAVE NUMBER REQUEST WITH A CARRIAGE 
RETURN WILL TERMINATE THE SLAVE 
ENTRIES AND CONTINUE TO THE NEXT 
PARAMETER. IT SHOULD BE REMEMBERED 
THAT AT LEAST ONE SLAVE NUMBER REQUEST 
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NUST BE ENTERED. IF THE FIRST 
REQUEST IS RESPONDED TO BY A CARRIAGE 
RETURN, THEN THE REQUEST WILL BE REPEATED. 
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DENSITY: 



(PAGE A) 

THE DESITY REQUEST IS RESPONDED TO BY ONE (1) OCTAL 
CHARACTER AND MUST BE UITHIN THE LIMITS OF 0 THRU 4. 
AS EACH SLAVE NUMBER IS ENTERED, A REQUEST FOR THE 
OPERATING DENSITY FOR THAT SLAVE IS TYPED. THE 
RESPONSE MEANINGS ARE AS FOLLOWING: 

A. 0 = 200BPI. NRZ1 

B. 1 = SS6BPI, NR2I 

C. 2 = 800BPI, NRZI 

D. 3 = 800BPI, NRZI 

E. 4 = 1600BPI. PE (9 CHANNEL ONLY) 



PARITY: 



FORMAT: 



THE PARITY REQUEST IS RESPONDED TO BY ONE (1) 
OCTAL CHARACTER AND MUST BE EITHER 0 OR 1 . 

A. 1 = EVEN PARITY 

B. 0 = ODD PARITY 

THE FORMAT REQUEST IS RESPONDED 
TO BY TWO (2) CHARACTERS 
AND SHOULD BE AS FOLLOWS 



RECORD COUNT: 



A. U 9 CHANNEL NORMAL (TWO FRAMES PER WORD) 

B. 15 : CORE DUMP (FOUR FRAMES PER WORD) 

THIS REQUEST IS RESPONDED TO BY A SIX (6) CHARACTER 
OCTAL NUMBER FROM 1 TO 177777. REMEMBER LEADING 
- ZEROS ARE NOT REQUIRED AND IF LESS THAN SIX 
CHARACTERS ARE ENTERED, A CARRIAGE RETURN 
WILL TERMINATE THE RESPONSE. THE RECORD COUNT 
IS USED IN CONJUCTION WITH THE CHARACTER COUNT 
TO ESTABLISH A BLOCKING FACTOR FOR USE IN READ OR 
WRITE CYCLES. 

CHARACTER COUNT: THIS RESPONSE IS ENTERED AS FOUR (4) OCTAL 

CHARACTERS WITHIN THE LIMITS OF 20 THRU AOOO. AGAIN 
LEADING ZEROS ARE NOT REQUIRED AND A CARRIAGE 
RETURN TERMINATES A LESS THAN FOUR (A) CHARACTER 
RESPONSE. THE CHARACTER COUNT IN CONJUNCTION 
WITH THE RECORD COUNT IS USED TO ESTABLISH 
THE BLOCK SIZE (CHARACTERS PER RECORD, AND 
RECORDS PER BLOCK) USED IN READ AND WRITE CYCLES 
THE SAME BLOCKING IS USED ON ALL AVAILABLE UNITS. 
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PATTERN NUMBER: THIS RESPONSE IS A TUO (2) CHARACTER OCTAL 
NUMBER UITHIN THE LIMITS OF 0 THRU 15(8). 
THE NUMBER ENTERED WILL CAUSE A SPECIFIC DATA 
PATTERN TO BE USED FOR ALL READING AND WRITING. THIS 
DATA PATTERN IS NOT CHANGED UNLESS RANDOM DATA 
IS REQUESTED BY SETTING CONSOLE SWITCH EIGHT (8) 
TO A ONE. RESETTING OF THE RANDOM DATA SWITCH 
DOES NOT CAUSE REVERSION TO THE FIXED PATTERN, 
BUT WILL HOLD THE LAST GENERATED PATTERN UNTIL 
A RESTART IS DONE FROM LOCATION 200(8), 210(8), OR 300(8). 
WHEN OPERATING IN NRZ MODE (DENSITY 0-3) 
THE PROGRAM CONSTRUCTS AND SAVES 
BOTH AN EXPECTED CRC CHARACTER AND AN 
LRC CHARACTER FOR COMPARISONS WITH 
THE HARDWARE GENERATED CHECK CHARACTER 
IN BOTH READ AND WRITE. 

THE SELECTION OF DATA PATTERN ZERO (0) HAS A 
SPECIAL USE. PATTERN NUMBER ZERO (0) WILL 
CAUSE TO BE READ IN AT THE HIGH SPEED PAPER 
TAPE READER ANY DATA PATTERN DESIRED. 
THE EXTERNAL INPUT DATA THOUGH THE READER 
IS DONE BY PREPARING A PAPER TAPE WITH A PROGRAM 
CALLED DTC. (ZZ-CZTUNAO) ANY CONFIGURATION 
OF BITS AND CHARACTERS MAY BE USED AND A LIMIT 
OF 377(8) CHARATERS IS IMPOSED. WHEN EXTERNAL 
DATA IS INPUT, THE ENTIRE WRITE BUFFER IN 
CORE IS FILLED WITH THE PATTERN SO THAT ANY 
SIZE RECORD MAY BE USED. DATA PATTERN 
PATTERN ZERO (0) EXTERNAL PAPER TAPE NEED ONLY 
BE READ ONCE AT INITIAL START OF 200(8), AND 
NEED NOT BE READ AGAIN UNLESS OVERWRITTEN BY 
RANDOM DATA. BE SURE TO LOAD THE READER 
BEFORE PRESSING START. 

TAPE MARK: THE TAPE MARK REQUEST IS USED TO DETERMINE 

IF THE OPERATOR WISHES TO HAVE EACH 
DATA BLOCK SEPERATED BY A TAPE MARK. IF 
RESPONDED TO BY A ONE (1) THE TAPE MARK 
WILL BE WRITTEN AND WHEN READING UILL 
BE EXPECTED AT THE END OF DATA BLOCK. 
A ZERO (0) RESPONSE WILL DISALLOW TAPE 
MARK. PLEASE NOTE THAT THE TAPE MARK 
RECORD INCREASES THE BLOCK SIZE BY ONE (1) 
RECORD; IN OTHER WORDS, A BLOCK OF TOO 
RECORDS UILL HAVE THE TAPE MARK AS RECORD 101. 
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SINGLE PASS: THIS REQUEST IS RESPONDED TO BY EITHER A ONE (1) 
OR A ZERO (0). RESPONSE OF 1. WILL CAUSE THE TEST 
TO BE r'OPPED AFTER THE LAST AVAILABLE DRIVE 
REACHES .„D OF TAPE. A RESPONSE OF 0, WILL 
ALLOW CONTINUOUS RUNNING THROUGH MULTIPLE PASSES. 
TO RESTART AT END OF PASS, PRESS CONTINUE, OR 
RESTART AT THE CONSOLE. 

STALLS: THE STALL REQUESTS ARE RESPONDED TO BY A SIX (6) 

CHARACTER OCTAL NUMBER WITHIN THE LIMITS OF 1 
THRU ^77?77. LEADING ZEROS ARE NOT REQUIRED AND 
AN ENTRY OF LESb THAN SIX (6) CHARACTERS SHOULD 
BE TERMINATED BY A CARRIAGE RETURN. EACH INCREMENT 
OF THE VALUE ADDS ABOUT 2.6 MICSEC TO THE DELAY. 

READ: THE TIME DELAY BETWEEN EACH RECORD READ 

WRITE: THE TINE DELAY BETWEEN EACH RECORD WRITTEN 

TURN AROUND: TIME DELAY BETWEEN CHANGES OF 

TAPE DIRECTION (FORWARD, TO REVERSE, ETC.) 
AND BETWEEN BLOCKS. 

FIXED PARAMETERS: IT SHOULD BE NOTED THAT ALL PARAMTERS EXCEPT 
FOR THE SLAVE DESCRIPTION VALUES (SLAVE 
NUMBER, DENSITY, PARITY, AND FORMAT) HAVE NOMINAL 
VALUES ALREADY STORED IN THE PROGRAM. 
AS EACH PARAMETER REQUEST (PATTERN NUMBER, RECORD 
COUNT, CHARACTER COUNT, TAPE MARK AND STALLS) IS TYPED. 
ITS PRESENT STORED VALUE IS ALSO PRINTED. 
IF THESE VALUES NEED NOT BE CHANGED, SIMPLY 
TYPE A CARRIAGE RETURN AS RESPONSE AND NO 
CHANGE WILL BE MADE. EACH START OF THE PROGRAM 
AT 200(8) WILL SHOW THE CURRENT VALUES OF THESE 
PARAMETERS AS PER THE LAST ENTRY. WHEN A 
FRESH LOAD OF THE PAPER TAPE IS DONE, THE 
PARAMETERS WILL REFLECT THE FIXED VALUES STORED 
IN THE PROGRAM. 

A. RECORD COUNT = 100 

B. CHARACTER COUNT = 200 

C. PATTERN NUMBER - 1 

D. TM=0 

E. SINGLE PASS = 0 

F. READ STALL = 1 

G. WRITE STALL = 1 

H. TURN AROUND STALL = 1 



T^02/TU45 DATA RELIABILITY PROGRAM MACYll ^0M04A1 1^>jllll»7k IX-^f) PlftP 11 
CZTUIA.PIl 07-JUN-78 14:49 


SEQ 0011 


(PAGE 7) 
SAMPLE START AT 200(8): 




THE FOLLOWING IS A SAMPLE OF THE 
PRINTED REQUESTS AND THEIR RESPONSES. 
RESPONSES ARE ENCLOSED IN PARENS FOR 
CLARITY ONLY AND (CR) MEANS CARRIAGE RETURN 




LOAD ADDRESS 200(8), SET CONSOLE SUITCNES, PRESS START SyiTCH: 




TU45 TAPE DRIVE TEST 
ENTER CONDITIONS IN OCTAL 




REGISTER START=172440(172440) 

VECTOR A0DRESS=224(CR) 

DRIVE NUMBER (4) 

SLAVE NUMBER-(5) SN: 5009 

DENSITY=(3) 

PARITY=(0) 

F0RMAT=(14) 

SLAVE NUMBER=(2) 7 CHAN SN: 0022 

DENSITY=(2) 

PARITY=(1) 

F0RMAT=(15) 

SLAVE NUMBER=(CR) 

RECORD COUNT-100 (500) (CR) 

CHARACTER COUNT-200 (38)?(7)(CR) 

PATTERN NUMBER=1 (22) 




(6}(CR) 
TM=(0) 

SINGLE PASS=(0) 




ENTER STALLS 
READ=1 (CR) 
URITE=1 (CR) 

TURN AROUND^I (3000) (CR) 


ft 


THE PROGRAM WILL NOW PERFORM THE TEST CYCLE SET IN 
THE CONSOLE SWITCHES ON SLAVE FIVE (5) THEN TWO (2). 
ONE BLOCK ON EACH UNIT PER CYCLE. USING DATA PATTERN 
NUMBER SIX (6) WITH A BLOCKING FACTOR OF 37 CHARACTERS 
PER RECORD AND 500 RECORDS PER BLOCK. THE DELAYS ARE SET 
FOR MINIMUM ON READ AND WRITE, AND APPROXIMATELY .75 
SECONDS ON TURN AROUND. 




NO TAPE HARKS WILL BE WRITTEN. 
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5. DATA PATTERNS 



THERE ARE FIFTEEN DATA PATTERN GENERATORS STORED IN CORE 

AND ANY ONE OF THESE RAY BE SELECTED. THE ONE UNIQUE 

CASE IS PATTERN ZERO(O): SELECTION OF PATTERN ZERO(O) 

REQUIRES THAT A PREVIOUSLY PREPARED PAPER TAPE BE 

ENTERED AT THE HIGH SPEED READER. THIS TAPE CONTAINS 

A DATA PATTERN OF NO MORE THAN 377 OCTAL 

CHARACTERS. THE FIRST CHARACTER READ IN IS THE 

NUMBER OF ACTUAL DATA CHARACTERS THAT ARE CONTAINED 

ON THE TAPE. EACH DATA CHARACTER RAY BE ANY 

CORBINATION OF BITS AND WILL BE LOADED INTO CORE 

AS THEY APPEAR ON THE TAPE. NO HATTER HOW RANY 

CHARACTERS ARE ON TAPE, THE ENTIRE WRITE BUFFER (4000 CHARACTERS) 

WILL BE FILLED WITH THE PATTERN ENTERED SO THAT ANY 

SIZE RECORD CAN BE USED. (SEE DTC ZZ-CZTUNAO) 

THE PROGRAM GENERATES A CYLIC REDUNDENCY CHECK 

CHARACTER (CRC) AND A LONGITUDINAL REDUNDENCY CHECK 

CHARACTER (LRC) FOR COMPARISONS AGAINST THE CRC AND LRC 

GENERATED BY THE HARDWARE IN NRZI READS OR URITES. 

THE FOLLOWING IS A LIST OF THE DATA PATTERNS AVAILABLE: 

DATAO: EXTERNAL INPUT THRU HIGH SPEED READER (SEE DTC) 

DATA1: ALL ONE BITS IN ALL CHARACTERS 

DATA2: ALL ZERO BITS IN ALL CHARACTERS 

DATA3: A ONE BIT WALKING FROM RIGHT TO LEFT IN A FIELD OF ZEROS 

DATA4: A ZERO BIT WALKING FROM RIGHT TO LEFT IN A FIELD OF ONES. 

DATA5: ALTERNATING ONE AND ZERO BITS IN EACH CHARACTER 

DATA6: ALTERNATING ZERO AND ONE BITS IN EACH CHARACTER 

DATA7: SAHE AS DATA5 BUT WITH EVERY OTHER CHARACTER CORPLERENTED 

DATA10: WALKING ONE/ALL ONE IN ALTERNATING CHARACTERS 

DATA11: INCREMENTING CHARACTERS (000-377) 

JATA12: DECRERENTING CHARACTERS (377-000) 

DATA13: ALTERNATING CHARACTERS OF ALL ZERO AND ALL ONE BITS 

DATAU: WALKING 2ER0/ALL ZERO IN ALTERNATING CHARACTERS 

DATA15: AUTO SEQUENCE PATTERN 0,0,-1,-1.-1,0,0 
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6. 



RANDOniZATION 



THERE ARE THREE (3) VALUES THAT HAY BE GENERATED RANDOMLY ; 
DATA, CHARACTER COUNT, AND RECORD COUNT. THESE ARE NORMALLY SET TO 
SOME FIXED VALUE BUT HAY BE RANDOMIZED BY SETTING THE APPROIATE 
CONSOLE SWITCHES. 

A. RANDOM DATA: (CONSOLE SWITCH 8) 
GENERATES AN ENTIRE BUFFER, CHARACTER BY 
CHARACTER, OF RANDOM DATA WHEN SWITCH 8 

IS SET TO A ONE. ONCE SET, THE RESETTING OF 
SWITCH 8 CAUSES THE LAST GENERATED PATTERN 
TO BE RETAINED IN CORE. A RESTART AT LOCATION 
200(8) OR 210(8) WILL CAUSE REVERSION OF THE 
DATA TO THE FIXED PATTERN REQUESTED INITIALLY. 
A RESTART AT LOCATION 204(8) WILL HOLD 
THE LAST GENERATED PATTERN IN CORE UNTIL SWITCH 
8 IS AGAIN SET. 

ALTHOUGH THE DATA IS GENERATED AS RANDOM, 

THE PROGRESSION OF RANDOM CHARACTERS IS ALWAYS 

THE SAME FROM THE OUTSET OF RANDONIZATION. 

THEREFORE IT IS POSSIBLE TO GENERATE ONE TAPE REEL 

OF RANDOM DATA ON ONE UNIT. RESTART THE 

PROGRAM TO RE-ESTABLISH THE OUTSET POINT, AND 

READ THE RANDOM TAPE REEL ON ANOTHER UNIT 

FOR C0MPATA6ILITY TESTING. IN HULTIDRIVE SYSTEMS THE SAME 

BLOCK OF DATA, WHETHER RANDOM OR FIXED, IS 

WRITTEN OR READ ON EACH AVAILABLE UNIT IN THE 

ORDER THAT THEY WERE ENTERED, BEFORE BEING CHANGED. 

B. RANDOM CHARACTER COUNT: (CONSOLE SWITCH 7) 
GENERATES A DIFFERENT NUMBER OF CHARACTERS 
PER RECORD TO BE WRITTEN ON EACH BLOCK CYCLE. 
THE SAME NUMBER OF CHARACTERS PER RECORD IS 
WRITTEN OR READ ON EACH AVAILABLE UNIT BEFORE 
BEING CHANGED. RESETTING SWITCH 7 HOLDS THE 
LAST V^LUE GENERATED. 

C. RANDOM RECORD COUNT: (CONSOLE SWITCH 6) 
GENERATES A DIFFERENT NUMBER OF RECORDS 
FOR EACH BLOCK OF DATA WRITTEN OR READ ON 
EACH BLOCK CYCLE. THE SAME NUMBER OF RECORDS 

IS WRITTEN OR READ ON EACH AVAILABLE UNIT BEFORE 
BEING CHANGED. RESETTING SWITCH 6 HOLDS LAST VALUE 
GENERATED. 
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y. DYNAHIC PARAMETERS: 



THE THREE (5) STALL VALUES ARE COMSIOERED TO BE OYNAHIC 
PARAMETERS AS THET MAY BE CHANGED UHILE THE PROGRAM IS 
RUNNING BY TYPING A CONTROL C CHARACTER AT THE TELETYPE. 
AS S(M)N AS THE BUS IS RELEASED BY THE HAG TAPE OPERATION 
IN PROGRESS, THE PROGRAM WILL RESPOND TO THE CONTROL C INPUT 
BY TYPING A REQUEST FOR NEW STALL PARAMETERS. THE LAST VALUES 
THAT WERE ENTERED WILL BE PRINTED AS THE STORED VALUES AND MAY 
BE CHANGED BY ENTERING NEW VALUES OR LEFT UNCHANGED BY 
TYPING A CARRIAGE RETURN. 

THE YOZZLE STALL IS ALSO DYNAMIC AND CAN BE CHANGED 
BY TYPING A CNTIL C UHILE DOING A VOZZLE. A YOZZLE STALL 
REQUEST UILL B^: PRINTED AND SHOULD BE RESPONDED TO WITH 
THE DESIRED VALUE. 



SEQ OOU 
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8. CONSOLE 


SWITC" SETTINGS 




THE CONSOLE SWITCHES ARE USED TO SET UP THE TEST CYCLE 
DESIRED. TO GENERATE RANDOM VALUES. AND TO CONTROL ERROR 

MANNER BEFORE PRESSING THE START SWITCH BECAUSE THEY 
ARE ALL DYNAMIC AND WILL RUN THE PROGRAM IN ANY 
CONFIGURATIO'^. ALL SWITCHES SET TO ZERO(O) IS NORMAL. 
IF A CONSOLE SWITCH REGISTER IS NOT PRESENT, THE SWITCHES 
ARE NOT DYNAMIC AND MUST BE SET BEFORE STARTING. USING 
THE FOLLOWING PROCEDURE: 




A) LOAD ADDRESS 606(8) LABELLED "SWR" 

B) DEPOSIT THE VALUE 176(8) 

C) LOAD ADDRESS 176(8) 

D) DEPOSIT THE DESIRED SWITCH VALUE. 




SW15: 


1=ST0P ON ERROR 
0=C0NTINUE ON ERROR 




SWU: 


1=PRINT READ/WRITE STATISTICS 
0=D0 NOT PRINT STATS 




SW13: 


1=D0 NOT CHECK DATA ERRORS 
0=rHFtK DATA FRRQRS 




SW12: 


1=D0 NOT CHECK WRITE STATUS ERRORS (NOR CLEAR THEM IF THEY DO OCCUR) 
0=CHECK WRITE STATUS ERRORS 




SW11: 


1=D0 NOT CHECK READ STATUS ERRORS (NOR CLEAR THEM IF THEY DO OCCUR) 
0=CHECK READ STATUS ERRORS 




SWIG: 


1=D0 NOT PRINT ANY ERRORS (EXCEPT CATASTROPHIC ERRORS) 
OrPRINT ALL ERRORS 




SW9: 


1=REWIND ALL AVAILABLE TAPES 
0=00 NOT REWIND 




SW8: 


1=:GENERATE RANDOM DATA 
0=USED FIXED DATA 




SW7: 


1=GENERATE RANDOM CHARACTER COUNT 
0=USE FIXED CHARACTER COUNT 




SW6: 


1=GENERATE RANDOM RECORD COUNT 
CAUSED FIXED RECORD COUNT 




SWS: 


t=YOZZLE ON CURRENT RECORD 
0=DO NOT YOZZLE ON RECORD 




SW4: 


1=00 WRITE/READ RETRIES 
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0=00 NOT RETRr 

SU3: 1=00 NOT READ FORWARD 
0=READ FORWARD 

SU2: 1=D0 NOT READ REVERSE 
0=READ REVERSE 

SWI: 1=READ FORWARD FIRST 
0=READ REVERSE FIRST 

SWO: 1=D0 NOT WRITE 
0=WRITE 
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SWITCH EXPLANATION 


AND EXAMPLES: 




eiiA Tuccc cut Truce ADC iiccA ifs mftiTDm Tuc ccniiciirc 
SW0~3' TNcSc SUJTCHco ARc USED 10 CONIKDL inc bcdUcNlc 

OF HAG TAPE OPERATIONS PREFORMED ON EACH AVAILABLE 

UNIT. THE BLOCK OF DATA DESCRIBED THROUGH 

THE RESPONSES TO TELETYPE REQUESTS AT INITIAL START 

WILL BE EITHER WRITTEN OR READ FROM EACH AVAILABLE 

UNIT IN THE ORDER THAT THEY WERE ENTERED. THE SEQUENCE 

OF OPERATIONS IS CALLED A CYCLE, AND WILL BE PERFORMED 

CONTINUOUSLY UNTIL STOPPED BY THE OPERATOR. WHEN END 

OF TAPE IS REACHED, THE UNIT WILL BE REWOUND AND 

FLAGGED AS UNAVAILABLE FOR TEST UNTIL ALL UNITS HAVE 

REACH EOT, AT WHICH TINE TESTING IS RESUMED ON ALL 

AVAILABLE UNITS. 










A. 


SW0=0.SW1=0,SW2=1.SW3=1 

WRITE ONLY X RECORDS OF Y CHARACTERS 




B. 


SWO=0,SW1sO,SW2=1 ,SW3-0 

WRITE THEN BACKSPACE AND READ FORWARD X RECORDS 




C. 


SWO=0 , SW1 =0, SW2=0 , SW3=1 

WRITE THEN READ REVERSE X RECORDS. 




D. 


SWO-0 , SW1 sO, SW2»0 , SW3:0 

WRITE THEN READ REVERSE AND READ FORWARD X RECORDS 




E. 


SW0=0.SW1=1 .SW2=0,SW3=0 

WRITE THEN BACKSPACE AND READ FORWARD THEN REVERSE 




F. 


SW0=1 , SW1 =0, SW2=1 , SW3=0 
READ TAPE FORWARD X RECORDS 




6. 


SW0=1 ,SW1=0,SW2«0,SW3-1 
READ TAPE REVERSE X RECORDS 




H. 


SW0=1.SW1=0.SW2=0.5W3=0 

READ TAPE REVERSE THEN FORWARD 




I. 


SW0=1,SW1=1,SW2=0,SW3=0 

READ TAPE FORWARD THEN REVERSE 
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SU4: SWITCH FOUR (4), UHEN SET TO A ONE (1), WILL 

CAUSE ANY DATA RELATED ERROR TO BE RETRIED. 
THE WRITE RETRY SCHEME CONSISTS Of REWRITING THE RECORD 
IN THE SANE SPOT ON TAPE FOUR (4) TIMES. IF 
ALL FOUR (4) REPEATS ARE SUCCESSFUL, THE 
RECORD IS CONSIDERED AS RECOVERED, AND A TAPE 
WRITE ERROR IS LOGGED. IF ANY OF THE FOUR 
(4) REPEATS IS UNSUCESSFUL, A SKIP ERASE IS 
DONE, A SUPECTED BAD TAPE SPOT IS LOGGED 
AT THIS BLOCK AND RECORD NUMBER, AND A SECOND 
RETRY OF FOUR REPEATS IS DONE. IF AFTER FOUR 
(4) RETRIES, THE RECORD CANNOT BE RECOVERED 
A NOTIFICATION IS PRINTED, AND TESTING IS 
RESUMED ON THE NEXT RECORD. 
IF 20(8) BAD TAPE SPOTS ARE FOUND, THE 
SLAVE WILL BE REWOUND AND REMOVED FROM 
TESTING WITH AN APPROPRIATE MESSAGE PRINTED. 
THE READ RETRY SCHEME CONSISTS OF REREADING THE 
RECORD UP TO EIGHT TIMES. IF ALL EIGHT REREADS ARE 
BAD, IT IS A HARD ERROR. IF ANY REREAD IS 
SUCCESSFUL, THIS IS A SOFT ERROR. 
IF THE ORIGINAL ERROR IS OF THE NON-RETRYABLE 
TYPE (IE: ILF,RMR,ILR,NEF,CBUSPE), THE RETRY SCHEME 
IS NOT ENTERED AND A MESSAGE IS PRINTED. 

SW5: SWITCH FIVE (5) WHEN SET DURING A READ 

FORWARD OR REVERSE WILL CAUSE THE TAPE 
TO CONTINUOUSLY READ THE CURRENT RECORD 
BY SPACING EITHER FORWARD OR REVERSE AND 
REREADING THAT RECORD. THIS TAPE MOVEMENT 
IS CALLED Y0ZZLIN6. THERE IS A SOFTWARE 
DELAY EXECUTED BETWEEN EACH SPACE/READ 
OF THE RECORD AND IT MAY BE VARIED BY 
TYPING CONTROL C ON THE TELETYPE DURING 
THE EXECUTION OF THE YOZZLE AND RESPONDING 
TO THE PRINTED REQUEST WITH A SIX (6) 
DIGIT VALUE. THE YOZZLE STALL IS PRESET 
TO A VALUE OF 3000 IN THE PROGRAM TO 
PREVENT EXCESSIVE TAPE WEAR, BUT MAY BE 
SET TO ANY VALUE THROUGH THE TELETYPE. 

SW6-8: THESE THREE (3) SWITCHES CONTROL THE RANDOMIZATION 

OF DATA AND BLOCK SIZE AND MAY BE SET 
AND RESET AT ANY TIME. THE ACTUAL CHANGE 
WILL TAKE PLACE BETWEEN BLOCK CYCLES. 

SU9. SWITCH NINE (9) WHEN SET WILL CAUSE ALL 

AVAILABLE TAPE UNITS TO BE REWOUND AT 
THE END OF THE CURRENT BLOCK CYCLE. TESTING 
WILL BE RESUMED AT A BLOCK COUNT OF 
ONE (1) UHEN ALL UNITS HAVE REACHED BOT. 
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SU10-13: THESE SWITCHES ARE USED TO CONTROL THE 

ERROR HANDLING TO BE DONE ON THE TAPE 
OPERATION DESCRIBED BY SWITCHES 0-3. 

A. SWITCH TEN (10) WHEN SET TO A ONE 
WILL DISALLOW ANY ERROR PRINTOUTS MADE 

ON THE OPERATION IN PROGRESS. CATASTROPHIC 
FAILURES AND INFORMATION PRINTOUTS WILL 
STILL OCCUR. IE: UNIT NOT AVAILABLE, ILLEGAL 
BOT, DROP OR PICK OVERFLOW, AND EOT REWIND. 

B. SWITCH ELEVEN (11) WHEN SET TO A ONE 
WILL DISALLOW THE CHECKING FOR STATUS 

ERRORS ON READ (FORWARD OR REVERSE) OPERATIONS. 

C. SWITCH TWELVE (12) WHEN SET TO A ONE 
WILL DISALLOW THE CHECKING FOR STATUS 
ERRORS ON WRITE OPERATIONS. 

D. SWITCH THIRTEEN (13) WHEN SET TO A ONE 
WILL DISALLOW THE CHECKING OF READ 
DATA. THIS SWITCH HAS NO EFFECT ON 
STATUS CHECKING. 

**NOTE THAT WHEN SW11 OR 12 ARE SET, NOT ONLY ARE ERRORS NOT CHECKED. BUT THEY ARE NOT CLEARED EITHER. 
***THEREFOR USE CAUTION TO ASSURE THAT OPERATIONS ARE NOT UNEXECUTED DUE TO UNCLEARED ERRORS. 
••••00 NOT SET SW 11 OR 12 TO A ONE (1), DURING A RETRY SEQUENCE. 

SW1A: SWITCH FOURTEEN (U)UHEN SET TO A ONE (1) WILL 

PRINT THE ACCUMULATED READ/WRITE STATISTICS FOR THE SELECTED 
SLAVE UNDER TEST AT THE END OF THE CURRENT BLOCK 
CYCLE. THE STATISTICS PRINTED ARE THE NUMBER OF BITS 
DROPPED OR PICKED, THE NUNBCR OF RETRIES, WRITE ERRORS, 
READ ERRORS, AND DATA ERRORS. 

SW15: SWITCH FIFTEEN (IS) WHEN SET TO A ONE. 

WILL CAUSE THE PROGRAM TO HALT ON ANY 
ERROR DETECTED BY THE OPERATION IN PROGRESS. 
IF BOTH SWITCH TEN (10) AND FIFTEEN (15) 
ARE SET, THE ACTUAL ERROR DETECTED WILL 
NOT BE PRINTED BUT WILL CAUSE A HALT. 
IF SWITCH TEN (10) IS RESET BEFORE PRESSING 
CONTINUE, THE ERROR WHICH CAUSED THE HALT 
WILL BE PRINTED BEFORE TESTING IS RESUMED. 
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9. 



ERROR PRINTOUTS 



THERE ARE THREE TYPES OF ERROR PRINTOUTS HADE BY 

THE PROGRAM: OPERATION ERRORS. DATA ERRORS, AND CONDITION 

ERRORS. EACH ERROR MESSAGE PRINTED IS PROCEEDED BY A TWO LINE 

HEADER WHICH CONTAINS THE DRIVE NUMBER, SLAVE NUMBER, 

DENSITY, PARITY, AND FORMAT ON THE FIRST LINE, AND THE BLOCK NUMBER, 

RECORD NUMBER, RECORD SIZE, AND ERROR TYPE ON THE SECOND. 

A. OPERATION ERRORS: 

THESE ARE ERRORS WHICH CAN OCCUR AS A 
DIRECT RESULT OF A TAPE OPERATION. 

1. READ/WRITE STATUS ERRORS: THESf ARE DETECTED BY EITHER THE TN02 

ITSELF OR BY THE MASSBUS CONTROLLER. 
ALL STATUS ERRORS WILL BE REPORTED. 

2. TAPE POSITION ERRORS: THESE ARE INDICATED BY AN INCORRECT 



DATA ERRORS WILL OCCUR WHEN TAPE IS 

BEING READ AND THE DATA FROM TAPE DOES 

NOT MATCH THE EXPECTED DATA. WHEN READING 

IN THE REVERSE DIRECTION, THE RECORD NUMBERS 

WILL BE COUNTED DOWN FROM LAST TO FIRST. 

THE CHARACTER NUMBERS IN REVERSE READS WILL 

ALSO BE COUNTED DOWN IN ORDER TO REFLECT 

TAPE POSITION RATHER THAN THE ORDER TRANSFERRED. 

BECAUSE DATA RECORDS CAN BE UP TO FOUR THOUSAND 
CHARACTERS LONG, AN ERROR CONDITION WHICH WILL CAUSE 
THE ENTIRE RECORD TO READ INCORRECTLY COULD CAUSE A VERY 
LENGTHY PRINTOUT. THEREFORE, A COUNTER OF SUCCESSIVE 
BAD CHARACTERS IS EMPLOYED. IF TEN (10) CHARACTERS IN 
SUCCESSION ARE BAD, A NOTIFICATION IS PRINTED 
(BAD RECORD) AND THE NEXT TWENTY FIVE (25) CHARACTERS 
ARE SKIPPED BEFORE CHECKING IS RESUMED. IF THE 
BAD RECORD CONDITION OCCURS THREE (3) TIMES IN ONE 
RECORD, THE REST OF THE RECORD IS SKIPPED, DOWN 
TO THE LAST TEN (10) CHARACTERS WHICH WILL BE 
CHECKED. THE SKIPPING AND RESUMPTION OF CHECKING 
WILL ONLY BE DONE ON RECORDS WHICH ARE LONG 
ENOUGH TO ALLOW IT. 



SPACE OR REWIND OPERATION IN WHICH 
TAPE POSITION BECOMES UNRELIABLE. 



B. DATA ERRORS: 
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C. CONDITION ERRORS: (CATASTROPHIC) 




THESE PRINTOUTS REFLECT THE STATE OF THE TAPE SYSTEH 
EITHER BEFORE OR AFTER AN OPERATION 




1. EOT: WHEN EOT (END OF TAPE) IS ENCOUNTERED DURING 

EITHER A READ OR WRITE, THE CYCLE IS COMPLETED 
ON THE SHORTENED BLOCK AFTER WHICH THE SLAVE 
WILL BE REWOUND AND FLAGGED AS UNAVAILABLE 
FOR TESTING UNTIL ALL SLAVES HAVE REACHED EOT AND 
ARF RFUniiMD UHFN THF 1 AST AVAII ABI F ^1 AVF 

HAS REACHED EOT AND BEEN REWOUND TO BOT, 
TESTING WILL BE RESUMED ON ALL SLAVES. 




2. ILLEGAL BOT: WHEN A SLAVE ENCOUNTERS BOT DURING 

A READ« WRITE, OR SPACE OPERATION, AN ERROR 
IS PRINTED AND THE PROGRAM HALTED. THIS IS 
A TATASTRQPHir FRROR TFSTING MAY BF RFSUMFD 

BY PRESSING CONTINUE: BUT A RESTART IS 
SUGGESTED. 




3. NO INTERRUPT RETURNED: EACH TAPE OPERATION SHOULD BE 

TFRMINATFD RV THF SFTTINfi OF AN INTFRRIIPT IN 

THE CPU. IF NO INTERRUPT IS RETURNED WITHIN 
THE APPROPIATE TIME, AN ERROR IS PRINTED. 




4. NO HEDIUn ON-LINE: BEFORE AN OPERATION IS ATTEMPTED, 

THF TM07 IS rHFCKFD FOR HOI IF IT IS MOT 

SET, AN ERROR IS PRINTED, AND THE PROGRAM STOPPED. 
TESTING HAY BE RESUMED BY PRESSING CONTINUE. 




5. NO BOT ON REWIND: AS EACH SLAVE IS REWOUND A CHECK 

IS MADE TO ASSURE THAT PROPER POSITION AT BOT 

IS FSTARI ISHFD IF BOT IS NOT SFT UPON CQMPLFTION OF 

A REWIND, AN ERROR IS PRINTED AND THE PROGRAM 
WILL HALT. PRESS CONTINUE TO RESUME TESTING. 




6. POSITION ERROR: IF POSITION IS LOST DURING A RETRY, 
A MFSSAGF IS PRINTFD THF TAPF RFUOUND 

AND REMOVED FROM TESTING UNTIL ALL ARE 
RESTARTED AT BLOCK ONE. 




7. BAD TAPE OVERFLOW: IF 20(8) BAD TAPE SPOTS ARE FOUND, 
A MFSSACF IS PRIIiTFD THF TAPF RFUQUND 

AND REMOVED FROM TESTING UNITLL ARE 
RESTARTED AT BLOCK ONE. 




R HARD RFAD FRROR* IF ANY HARI^ RFAK FRROR IS FNCOUNTFRFD 

DURING A RETRY, A MESSAGE IS PRINTED 
REGARDLESS OF THE SETTING OF SWIG. 




9. NON-RE TRYA6LE: IF ANY NON-RcTRYABLE ERROR IS ENCOUNTERED, A 

MESSAGE IS PRINTED REGARDLESS OF THE SETTING OF SWIG. 
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BN = CURRENT BLOCK NUMBER 
RN = CURRENT RECORD NUMBER 
RS = RECORD SIZE, IN FRAMES 
UE = WRITE STATUS ERROR 
RE = READ STATUS ERROR 
SE = SPACE ERROR 
TM = TAPE HARK 
F = FORWARD 
R = REVERSE 

CS1 = RH/TU45 CONTROL REGISTER 

WC = RH WORD COUNT 

BA = RH BUS ADDRESS 

FC = TU45 FRAME COUNT 

CS2 = RH CONTROLLER STATUS 

DS = TU45 DRIVE STATUS 

ER = TU45 ERROR REGISTER 

AS = ATTENTION SUMMARY 

CK = TU45 CHECK CHARACTER 

DB = RH DATA BUFFER 

MR = TU4S MAINTENENCE REGISTER 

DT = TU45 DRIVE TYPE 

SN = TU45 SERIAL NUMBER 

TC = TU45 TEST CONTROL 

•F = DATA FORMAT 

*P = PARITY 

♦D = DENSITY 

*PATRN - DATA PATTERN NUMBER (R = RANDOM) 
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EXAMPLE 1: IN THIS EXAMPLE SLAVE 1 ON TMOZ 0 WAS 
OPERATING AT 1600 BPI IN ODD PARITY USING 
THE NINE CHANNEL NORMAL DATA FORMAT. A 
WRITE STATUS ERROR WAS DETECTED. THE BAD 
STATUS INDICATES THAT AN UNCORRECTABLE DATA 
ERROR (BIT 6 OF ER) AND A PE FORMAT ERROR 
(BIT 7 OF ER) OCCURED DURING THE WRITE 
OPERATION OF THE SIXTH (6) RECORD OF THE 
FIFTY (50) RECORDS IN BLOCK (2). THE 
SIZE OF THE RECORD WAS TWO HUNDRED (200) 
FRAMES. THE CHECK CHARACTER REFLECTS THE BAD TRACK. 

DRIVE NO. 0 ^SLAVE NO. 1 ^D 4 *P 0 *F 14 tpATRN 1 

•BN 2 *RN 6-50 *RS = 200 *WE 

CSl U4260 

CS2 100 

DS 150640 

ER 300 

WC 0 

CK 4 

EXAMPLE 2: IN THIS EXAMPLE SLAVE 3 ON TM02 1 WAS 
OPERATING AT 800 BPI IN EVEN PARITY USING 
THE NINE CHANNEL NORMAL DATA FORMAT. A 
READ STATUS ERROR WAS DETECTED DURING 
THE REVERSE READ OF THE TENTH (10) 
RECORD OF THE 25 RECORDS IN THIS BLOCK (12). 
THE SIZE OF THE RECORD IS TWENTY (20) FRAMES. 
THE PRINTOUT INDICATES THE DETECTION OF A 
VERTICAL PARITY ERROR (VPE: BIT 6 OF ER) AND A 
CYCLIC REDUNDENCY ERROR (CRC: BIT 15 OF ER). 
THE CRC CHARACTER, AS RECEIVED, IS NOT 
AS EXPECTED AND IS PRINTED SHOWING BOTH 
THE ACTUAL (FIRST) AND THE EXPECTED (LAST). 

DRIVE NO. 2 *SLAVE NO. 3 *D 3 *P 1 *F U *PATRN 3 

*BN 12 *RN 10-25 *RS 20 *RE R 

CSl 144276 

CS2 100 

DS 150600 

ER 100100 

WC 0 

CRC Idl'lU 
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EXAMPLE 3: IN THIS EXAMPLE, THE HEADER IS THE SAME AS 
IN EXAMPLE TWO (2) EXCEPT THAT THE ERROR TYPE 
REFLECTS A READ ERROR IN THE FORWARD 
DIRECTION. IT IS NORMAL FOR THE SYSTEM 
TO DETECT AN ERROR IN THE FORWARD AND 
REVcRSE DIRECTION AT THE SAME RECORD. 
REMEMBER THAT IN REVERSE OPERATIONS THE 
RECORD NUMBER IS COUNTED DOWN SO THAT 
RECORD NUMBER TEN (10) WILL SHOWN IN 
THE PROPER POSITION IN BOTH FORWARD AND 
REVERSE. 

DRIVE NO. 2 ♦SLAVE NO. 3 •D 3 •P 1 -F U •PATRN 2 

*BN 12 *RN 10-25 •RS 20 'RE F 

CSl U4270 

CS2 100 

DS 1S0600 

ER 100100 

WC 0 

CRC 767-777 

EXAMPLE 4: IN EXAMPLES 2 AND 3 THE READ OPERATION 
RESULTED IN BAD STATUS, HOWEVER THE 
DATA ASSOCIATED WITH THE OPERATION WAS 
NOT BAD (OR WAS NOT CHECKED: SW 13=1). 
THIS EXAMPLE (4) SHOWS A PRINTOUT REFLECTING 
A READ STATUS ERROR ACCOMPANIED BY BAD 
DATA IN CHARACTERS FOUR (4) AND SIX (6). 

DRIVE NO. 2 *SLAVE NO. 3 *D 3 'P 1 'F U *PATRN 2 

•BN 12 *RN 10-25 *RS 20 *RE F 

CSl 144270 

CS2 100 

DS 150600 

ER 100100 

UC 0 

CRC 7(>7'777 
CN 4 

G 11111111 
B 10111111 
CN 6 

6 11111111 
B 10111111 
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EXAMPLE 5: THIS EXAMPLE SHOWS A READ DATA ERROR 
WHICH OCCURRED, WITHOUT AN ACCONPANING 
STATUS ERROR, WHICH RESULTED IN A BAD RECORD. 

DRIVE NO. 3 ♦SLAVE NO. 1 *0 4 *P 0*F 14 tPATRN R 
*BN 100 *RN 66-200 *RS 2000 *DE F 
CN 0 

G 11111111 
B 00000000 
CN 1 

G 11111111 
B 00000000 
CN 2 

G 11111111 
B 00000000 
CN 3 

G 11111111 
B 00000000 
CN 4 

G 11111111 
B 00000000 
CN 5 

G 11111111 
B 00000000 
CN 6 

G 11111111 
B 00000000 
CN 7 

G 11111111 
B 00000000 

BAD RECORD 

EXAMPLE 6: THE FOLLOWING EXAMPLE SHOWS THE 
RESULT OF A SPACE OPERATION THAT 
SHOULD HAVE SPACED REVERSE OVER 
AN ENTIRE 100 RECORD BLOCK BUT 
WHICH TERMINATED AT THE END OF 40 
RECORDS. LEAVING A POSITION ERROR OF 40 

DRIVE NO. 2 *SLAVE NO. 6 *D 2 *P 0 ^F 14 
*BN 3 *RN 100-100 *RS 1000 ^SE R 
ERR AMT 40 
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EXAMPLE 7: THIS EXAMPLE REFLECTS AN ERROR DETECTED 
WHILE WRITING A TAPE MARK (TM) AT THE END 
OF THE CURRENT DATA BLOCK PER OPTION RESPONSE 
Tn=1. NOTE THAT THE TM RECORD NUMBER 
IS ONE GREATER THAN THE TOTAL NUMBER OF DATA 
RECORDS IN THE CURRENT BLOCK. 

DRIVE NO. 1 *SLAVE NO. 1 ^D 2 Ap 0 U 

*BN 67 'RN 101-100 *RS 36 *WE TM 

CSl 144226 

CS2 300 

DS 150604 

ER 1000 

WC 0 

EXAMPLE 8: THIS EXAMPLE SHOWS TWO (2) PRINTOUTS 
REFLECTING A WRITE RETRY WHICH WAS NOT 
SUCCESSFUL THE FIRST TIME, BUT WHICH 
DID RECOVER ON THE SECOND. 
THE UNSUCCESSFUL RETRY IS LOGGED AS 
A SUSPECTED BAD TAPE SPOT BY ITS 
BLOCK AND RECORD NUMBER. 



DRIVE NO. 0 'SLAVE NO. 2 *D 4 *P 0 ^F 14 tPATRN 6 

*BN 2 *RN 12-20 *RS 667 *WE 

CSl 144260 

CS2 100 

DS 150640 

ER 100 

WC 0 

***0RIGINAL ERROR*** 

DRIVE NO. 0 SLAVE NO. 2 *D 4 Ap 0 *F 14 tPATRN 6 

*BN 2 *RH 12-20 *RS 667 'WE 

CSl 144260 

CS2 100 

DS 150640 

ER 100 

WC 0 

SUSPECT BAD TAPE 
RETRY: 0 
REPT: 0 
RECOVERED 
RETRY: 1 
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EXAMPLE 9: IF . DURING A WRITE RETRY THE BACKSPACE 
OR THE ERASE OPERATION RESULT IN AN ERROR, 
THE ERROR WILL BE PRINTED AND THE PROGRAM 
HALTED. THIS EXAMPLE SHOWS THE ERROR PRINT 
FOR A SPACE AND AN ERASE (2 EXAMPLES) 

DRIVE NO. 1 *SLAVE NO. 1 ♦O 3 •P 0 *F U 
BN 12 *RN 8-64 *RS 500 •SE RTRY 
ERR AMT 1 

DRIVE NO. 1 *SLAVE NO. 1 tD 3 *P 0 *F U 
»BN 12 *RN 8-64 *RS 500 *ERASE 

CS1 144224 
CS2 100 
DS 150600 
ER 400 
WC 0 

EXAMPLE 10: THIS EXAMPLE SHOWS THE PRINTOUT FROM 
A REWIND OPERATION WHICH DOES NOT HAVE 
BOT SET AT THE END. 

DRIVE NO. 2 ♦SLAVE NO. 3 ♦D 3 tP 0 *F 14 
*BN 66 ♦RN 15-20 *RS 1000 
NOT BOT ON REWIND: HALT 

EXAMPLE 11: THIS EXAMPLE SHOWS THE PRINTOUT MADE WHEN 
THERE IS NO INTERRUPT RETURNED AT THE END 
OF AN OPERATION. 

DRIVE NO. 7 »SLAVE NO. 7 *D 2 *P 1 •F 14 
»BN 1 •RN 25-26 *RS 1200 
NO INTERRUPT 
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10. STATISTICS PRINTOUT 



THE PROGRAM, THROUGH ITS ERROR CHECKING, IS ABLE TO GATHER CERTAIN 

STATISTICS ABOUT THE PERFORMANCE OF EACH UNIT UNDER TEST. 

THIS INFORMATION IS PRINTED OUT WHENEVER A UNIT IS REWOUND 

FROM END OF TAPE, OR BECAUSE IT IS TO BE REMOVED FROM TESTING 

DUE TO SOME CATASTROPHIC ERROR. (POSITION LOST, BAD TAPE OVERFLOW) 

THE STATISTICS MAY BE PRINTED AT ANY TIME BY SETTING 

SWITCH U TO A ONE (1). THIS PRESENTS A PICTURE OF PERFORMANCE 

UP TO THIS TIME. THE STATISTICS WILL BE CLEARED UPON REWIND OF THE 

UNIT: BUT NOT BY SETTING SW U. 

STATISTICS PRINT EXAMPLE (A HEADER WILL PRECEED THE STATS) 

DROPS: 030006 A5 0 
PICKS: 1 0 0 0 0 0 0 2 
RETRY: 1 
WTERR: 2 
REFWD: 3 

SOFT: 2 

HARD: 1 
DEFWD: 0 
REREV: A 

SOFT: 1 

HARD: 3 
DEREV: 0 

2 BAD TAPE SPOTS 

0 *BN 1 *RN 2 

1 *BN 15 *RN 100 

** NOTE •* DROPS AND PICKS REFLECT CORE BIT POSITIONS. 

THE FOLLOWING IS A TABLE OF CORE BITS TO TRACK NUMBER. 

TRACK NO. 7 6 5 3 9 1 8 2 
CORE BIT 7 6 5 4 3 2 10 

DROPS: NUMBER OF DATA BITS DROPPED: PER CORE BIT(SEE NOTE ABOVE) 

PICKS: NUMBER OF DATA BITS PICKED UP: PER CORE BIT(SEE NOTE ABOVE) 

RETRY: NUMBER OF WRITE RETRIES 

WTERR: NUMBER OF WRITE ERRORS NOT ASSOCIATED WITH BAD TAPE 

REFWD: NUMBER OF READ FORWARD STATUS ERRORS 

REREV: NUMBER OF READ REVERSE STATUS ERRORS 

SOFT: NUMBER OF RECOVERED READ ERRORS 

HARD: NUMBER OF UNRECOVERED READ ERRORS 

DEFWD: NUMBER OF FORWARD DATA ERRORS WITH NO ASSOCIATED STATUS ERROR 

DEREV: NUMBER OF REVERSE DATA ERRORS WITH NO ASSOCIATED STATUS ERROR 
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SEC 0030 



(PAGE 2A) 

11. AUTO SEQUENCE 



THE AUTO SEQUENCE (START AT ADDRESS 240) WILL EXECUTE A 
PREDETERMINED TEST PLAN ON ALL AVAILABLE SLAVES ON EACH 
AVAILABLE TN02. THE ONLY OPERATOR RE-fONSE IS TO THE TYPED 
REQUESTS FOR THE RH ADDRESS, VECTOR, CONTINUOUS OR SINGLE 
CYCLE, AND NRZ ONLY. ALL SWITCHES REMAIN ACTIVE AND NAY BE 
USED NORMALLY; HOWEVER THE IDEA IS TO LEAVE ALL SWITCHES 
DOWN AND ALLOW FULL EXECUTION OF THE TEST PLAN FOR 
SYSTEM CHECKOUT. 

SAMPLE START AT 240(8): AUTO SEQUENCE. 

LOAD ADDRESS 240(8), SET SWITCHES TO ZERO. PRESS START: 

TU45 AUTO SEQUENCE TEST 
ENTER CONDITIONS IN OCTAL 

REGISTER START = 172400(172440) 
VECTOR ADDRESS - 224(CR) 
NRZ ONLY: (0) 
AUTO CONT: (1) 

THIS EXAMPLE SHOWS AN AUTO SEQUENCE START WITH THE RH 

AT BUS ADDRESS 172440 AND A VECTOR OF 224. ALL AVAILABLE 

HARDWARE WILL BE TESTED CONTINUOUSLY IN BOTH NRZ AND PE MODE. 

AS EACH TM02 AND ITS SLAVES ARE FOUND, A DIVIDER LINE OF 
ASTERICKS WILL BE PRINTED FOLLOWED BY A PRINTOUT OF THE 
TM02 AND ITS SLAVES BEING TESTED. AS EACH TM02 AND 
ITS SLAVES ARE FINISHED, ANOTHER DIVIDER IS PRINTED 
BEFORE TESTING IS RESUMED ON THE NEXT AVAILABLE DRIVE. 

WHEN ALL AVAILABLE HARDWARE HAS BEEN TESTED, 
A PRINTOUT OF END OF SEQUENCE WILL BE DONE AND THE 
PROGRAM WILL EITHER HALT (AUTO CONT s 0) OR RESTART WITH 
THE FIRST AVAILABLE UNIT (AUTO CONT =1). 
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(PAGE 25) 
AUTO SEQUENCE TEST PLAN: 

THE AUTO SEQUENCE WILL EXECUTE BOTH AN NRZ AND A RE 
CYCLE. EACH CYCLE WILL BE STARTED FROM BOT AND CONSIST 
OF VARIOUS DATA PATTERNS INTENDED TO BE WORST CASE 
FOR THAT PARTICULAR MODE. 

1. NRZ CYCLE: * 

SIX (6) BLOCKS OF ONE HUNDRED (100) RECORDS 
OF FOUR THOUSAND (4000) CHARACTERS hOR 
EACH OF THE FOUR DATA PATTERNS. 

PATTERN 1: ALL ONES DATA IN ALL BYTES 

PATTERN 10: WALKING ONE/ALL ONE 

PATTERN U: WALKING ZERO/ALL ZERO 

RANDOM DATA: RANDOM 

2. PE CYCLE: (IF NRZ ONLY = 0) 

SIX BLOCKS OF ONE HUNDRED (100) RECORDS 
OF FOUR THOUSAND (4000) CHARACTERS EACH FOR 
EACH OF THREE DATA PATTERNS, THEN RANDOM 
DATA BLOCKS TO END OF TAPE. 

PATTERN 10: WALKING ONE/ALL ONE 
PATTERN U: WALKING ZERO/ALL ZERO 

PATTERN 15: THREE (3) 0 CHARACTERS. TWO (2) AIL CHARACTERS. THREE 0 CHARACTERS, 

THEN COMPLIMENT PATTERN. REPEATED FOR A FULL BUFFER 
RANDOM DATA: RANDOM 



i 
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SEQ 0032 



(PAGE 26) 
12. TESTING PROCEDURES 



AS PREVIOUSLY STATED THIS PROGRAM CONTAINS NO 
FIXED TESTS. THE ENTIRE TEST CYCLE TO BE EXECUTED 
IS DESCRIBED BY THE OPERATOR THOUGH RESPONSES TO 
TELETYPE REQUESTS FOR PARAMETERS AND CONSOLE SWITCH 
SETTINGS FOR OPERATION. THE OPERATION SELECTED WILL 
BE EXECUTED WITH THE PARAMETERS ENTERED CONTINUOUSLY 
ON EACH AVAILABLE UNIT, ONE BLOCK AT A TIME, UNTIL 
STOPPED BY THE OPERATOR. THE OPERATION MAY BE CHANGED 
DYNAMICALLY BY CHANGING THE CONSOLE SWITCHES AT ANY 
TIME. THE PROGRAM WILL ATTEMPT TO PERFORM ANY OPERATION 
SET AND THEREFORE CAUTION SHOULD BE TAKEN TO ASSURE THAT 
THE UNIT IS CAPABLE OF PERFORMING AS REQUESTED. FOR 
INSTANCE, ONE SHOULD NOT ATTEMPT TO PERFORM READ OPERATIONS 
ON A TAPE WHICH HAS NOT BEEN WRITTEN AS THE DATA, IF ANY. 
IS UNPREDICTABLE. HOWEVER, IF A TAPE HAS BEEN WRITTEN WITH 
THIS PROGRAM, IT CAN BE READ AS OFTEN AS DESIRED WITHOUT 
BEING REWRITTEN. THIS IS A GOOD PROCEDURE TO USE FOR 
TESTING TAPE COMPATABILITY . SCOPING OF TAPE UNITS BECOMES 
SIMPLE: BY SETTING THE DESIRED OPERATION AND ITS PARAMETER, 
A UNIT MAY BE CONTINUOUSLY EXERCISED IN ANY MANNER DESIRED. 
BY USING THE VARIOUS ERROR CONTROL SWITCHES AND ENTERING 
THE NEEDED STALL, ANY FUNCTION CAN BE SCOPED RATHER 
EASILY. RELIABILITY TESTING CAN BE PREFORMED BY USE 
OF THE RANDOMIZATION CAPABILITY. PERHAPS A CYCLE OF 
RANDOM TESTING MIGHT BE SET UP AND ALLOWED TO RUN 
FOR SOME PERIOD OF TIME. THE STATISTICAL COLLECTION 
OF DROPS AND PICKS IS THEN SIGNIFICANT. INTERMITTANT 
PROBLEMS CAN BE FOUND BY SETTING THE DESIRED OPERATION 
IN MOTION AND DISALLOWING ERROR PRINTOUTS WHILE ALLOWING 
A HALT ON ERROR. THE ERROR THAT CAUSED THE HALT CAN 
BE PRINTED BY RESETTING CONSOLE SWITCH TEN AND PRESSING 
CONTINUE. IF SOME PARTICULAR DATA PATTERN SHOULD BE 
CAUSING DATA ERROR, USE OF THE YOZZLE SWITCH AND ITS 
ASSOCIATED STALL WILL TO ALLOW SCOPING OF THIS 
PARTICULAR RECORD. 

AS YOU SEE, THERE ARE MYRIAD TESTING PROCEDURES WHICH 
COULD BE PERFORMED. THE PARAMETERS, TAPE OPERATIONS, ERROR 
EXAMINATION AND REPORTTNG ARE ALL AT YOUR DISCRETION. 

TRY IT, YOU'LL LIKE IT. 

13. LISTING 
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1312 

1313 

13U 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

132A 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

13A0 

1341 

13A2 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 
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.LIST SEOAOCBIN 

.TITLE TH02/TU45 DATA RELIABILITY PROGRAM 
ZZ-CZTUIAO 
15 HAY 1978 

R. BARNES/R. J. COLLINS 



ENABLE ABS 

CONSOLE SWITCHES** 



SEQ 0033 



SU15: 1=ST0P ON ERROR 

0=CONTINUE ON ERROR 

Syi4: 1=PRINT READ/WRITE STATS 
0=DO NOT PRINT STATS 

SU13: 1=D0 NOT CHECK DATA 

0=CHECK DATA 

SU12: 1=D0 NOT CHECK WRITE ERRORS 

0=CHECK WRITE ERRORS 

SW11: 1=D0 NOT CHECK READ ERRORS 

0=CHECK READ ERRORS 

SWIG: 1=D0 NOT PRINT ERRORS 

O^PRINT ERRORS 

SW9: 1=REWIND TAPE 

0=D0 NOT REWIND 

SW8: IsUSE RANDOM DATA 

0=USE FIXED DATA PATTERN 

SW7: 1=USE RANDOM CHARACTER COUNT 
OsUSE FIXED CHAR COUNT 

SU6: 1-USE RANDOM RECORD COUNT 
0=USE FIXED RECORD COUNT 

SW5: 1=Y0ZZLE ON CURRENT RECORD 
0=DO NOT YOZZLE 

SU4: 1=D0 BOTH READ AND WRITE RETRIES 
0=INHIBIT RETRIES 

SW3: 1«D0 NOT READ FORWARD 

0=READ FORWARD 
SW2: 1=D0 NOT READ REVERSE 

0=READ REVERSE 
SW1: THREAD FORWARD FIRST 

0-READ REVERSE FIRST 
SWO: 1=D0 NOT WRITE 

0=WRITE 
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1561 

1362 

1563 

136A 

1365 

1366 

1367 

1368 

1369 

1370 

1571 

1372 

1373 

137A 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 
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;TU45 REGISTER B1TS*««*****«* 

;15 ;14 ;15 ;12 ;11 ;10 .09 ;08 ;07 ;06 .05 ;04 ;03 .-02 .01 .00 ; 

.■xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

;CS1: ;SC ; TRE;HCP; SPR;DNA;PSL; A17; A16; RDY; IE ; FUN; FUN; FUN; FUN; FUN; GO ; 

•xxxhxxxxxxxxxxxxxxhxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

;UC: ; WORD 
; COUNT 

;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
;BA: ; BUS 

; ADDRESS 

;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
;FC: ; FRAHE 
; COUNT 

;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
;CS2: ;DLT;UCE;UPE:NED;NEn;PGE;nXF;nDP;OR ;iR ;CLR:PAT;BAI;U2 ;U1 ;U0 ; 

• • • *ERD* * * * * 

■xxxxxxxxxxxhxxxxxxxxxxhxxxxxxhxxxxxxxxxxhxxxxxxxxxxxxxxx^ 

;DS: ;ATA;ERR;PIP;HOL;WRL;EOT;SPR;DPR;0RY;SSC;PES;SDN;IDB;EOF;B0T;SLA; 

• •■•••••••••••■•a 

•xxxhxxxxxxxxxxxxxxhxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx^ 

;ER: ;CDE;UNS;OPI;DTE;NEF;CS ;FCE;NSG;PEF;INC;DAT;FHT;CNT;RHR;ILR;ILF; 
;CRC; ; ; ; ;ITH; ; ;LRC;VPE;BPE; ;BPE; ; ; ; 

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

;ATS: ; ATTENTION 
; SUHHARY 

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

;CC: ; CHECK 

; CHARACTER 

;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
;DB: ; DATA 

; BUFFER 

;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
:HR: ;DB ;DB ;DB ;DB ;DB ;DB ;DB ;DB ;DB ;URT;m ;0P ;0P ;0P ;0P .m ; 

; 7 ; 6 ; 5 ; 4 ; 3 ; 2 ; 1 ; 0 ; P ;CLK;CLK; 4 ; 3 ; 2 ; 1 ;60 ; 

;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
;DT: ; DRIVE ; 7 ; ;SLV; 

; TYPE ;CH ; ;PR ; 

;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
;SN: ; SERIAL 

* NUMBER 

•XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
;TC: ;ACL:FCS;TCW;ENA;SPR;DEN;DEN;DEN;FHT;FHT;FHT;FHT;EVN;SSN;SSN;SSN; 
; ; ; ;0T ; ; 4 ; 2 ; 1 ; 8 ; 4 ; 2 ; 1 ;PAR; 4 ; 2 ; 1 ; 
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



SEQ 0034 
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1A09 




000000 




1410 




000001 




1 A1 1 




00000? 




1412 




000003 

www WW J 








OOOOOA 

wwwww*V 




1A14 




000005 

wwwww J 




1A15 




000006 

Www WU 




1A16 




000007 

WWWWW f 




U17 




0002A0 

WW w t ~ w 




U18 




005726 




U19 




022626 




U20 








U21 








U22 








1A23 




000000 

wwww w w 




U2A 




000200 

W W Wfc WW 




U25 








U26 








U27 








U28 








U29 








U30 








U31 




000060 




Ui2 


000060 


0221A2 




1A33 


000062 


000000 

V w w w w w 




U3A 








U35 








1A36 








U37 




000200 




U38 


000200 


000167 


002622 


U39 








U40 




00020A 

W W Wb W~ 




1AA1 


00020A 


000167 


0026A0 

W Wfc w 


1AA2 








1AA3 




000210 




1AAA 


0002 10 


005067 


01A77A 


KAS 


00021 A 


000167 

W WW ■ w ■ 


0026A0 

WW b W ^ W 


1AA6 








1AA7 








TAA8 








1AA9 




00022A 




1A50 


00022A 


022216 




1A51 


000226 


0O03A0 




1A52 








1A53 








1A5A 








1A55 




00O2A0 




U56 


0002A0 


005267 


000A72 


1A57 


0002AA 


000167 


002562 
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StQ 0035 



.'REGISTER EQUIVS************ 

RO=XO 

R1=X1 

R2=X2 

R3=Z3 

RA=ZA 

R5=X5 

SP=X6 

PC=X7 

N0P=2A0 

P0PSP=5726 

P0PP0P=22626 

.-TRAP CATC.<ERS*******»«** 

.=0 

.REPT 200 
.♦2 
HALT 
.ENDR 

;TTY INTERRUPT VECTOR********** 
.=60 

TTINT :TTY INTERRUPT HANDLER ADDRESS 

0 

.•START ADDRESS********** 
.=200 

JHP START .-ENTER PARAMETERS VIA TTY 

.=20A 

JMP STARTC .-USE FIXED PARAMETERS: HOLD DATA 

.=210 

CLR RDFL 

JHP STARTA :USE FIXED PARAMETERS; NEW DATA 

;HA6 TAPE INTERRUPT VECTOR********** 

.=22A 

MTINT :NAG TAPE INTERRUPT HANDLER ADDRESS 

3A0 

;AUTO SEQUENCE START********** 

.=2A0 

INC ASEQF :SET AUTO SEQUENCE FLAG 

JMP STAUT :G0 TO START OF AUTO SEQUENCE 
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US8 












.-SHORT CONVERSATION RESTART******** 


US9 
















K60 




000X00 








.=300 




H61 


000300 


005267 0136A2 

WW ^ cut w 1 ^W^C 








INC SCVFL 


;SET SHORT CONVERSATION FlAG 


U6? 


000 30 A 

WWW 


000167 002516 

WWW 1 W ■ WWb ^ I w 








J.1P START 


;ENTER SHORT PARAMETER LIST 


H63 
















U6A 




000510 

WWW^ 1 w 








. = 510 




U6S 














1A66 
















H67 


000b 10 


172AA0 


CI 






172AA0 




1A68 


000512 


172AA2 


uc 






172AA2 




1A69 


00051 A 


172AAA 


BA 






172AAA 




1A70 


000516 


172AA6 


FC 






172AA6 




1A71 


000520 


172A50 


CS 






172A50 




1A72 


000522 


172A52 


DS 






172A52 




1A73 


0005 2 A 


172A5A 


ER 






172A5A 




1A7A 


000526 


172A56 


AS 






172A56 




1A75 


000530 


172A60 


CC 






172A60 




1A76 


000532 


172A62 


DB 






172A62 




U77 


00053A 


172A6A 


MR 






172A6A 




1A78 


000536 


172A66 


DT 






172A66 




1A79 


OOOSAO 


172A70 


SN 






172A70 




1A80 


0005A2 


172A72 


C2 






172A72 




1A81 
















1A82 
















1A83 














1A8A 


0005AA 


172AA0 


REGS: 


172AA0 


STARTING REGISTER ADDRESS (CSI) 


1A85 


0005A6 


00022A 


VECT: 


22A 


VECTOR ADDRESS (RH INTERRUPT) 


1A86 


000550 


000000 


DVN 




0 


; DRIVE NUMBER 


1A87 


000552 


000000 


UDES: 


0 


UNIT DESCRIPTION (PARITY. DENSITY. UNIT FORMAT) 


1A88 


00055A 


000100 


RCNT: 


100 


-RECORD COUNTER 


1A89 


000556 


177600 


FNCNT 


1 77600 


'NUMBER OF CHAR (A - AOOO) OCTAL IN TWOS COMPLEMENT 


1A90 


000560 


000001 


PATRN 


• 1 


;DATA PATTERN SELECTOR (0 - IS) OCTAL 


1A91 


000562 


000002 


RDcno 


2 


:READ COMMAND 


1A92 


00056A 


000000 


THEX: 


0 


TAPE NARK FLAG: 1=TM 0=NO TM 


1A93 


000566 


000000 


INTRF 


0 ; 


INTERCHANGE READ 0=N0 


1A9A 


000570 


000000 


SPFLG 


0 


; SINGLE PASS IsYES O^NO 


1A95 


000572 


000001 


RSTAL 




■READ STALL 


1A96 


0005 7A 


000001 


WSTAL 




;URITE STALL 


1A97 


000576 


000001 


TSTAL 




TURN AROUND STAl 


1A98 


000600 


002000 


YSTAL 


2000 ', 


■YOZZLE STAL 


1A99 


000602 


000010 


RETRY 


10 


;READ RETRY NUMBER 


1500 


00060A 


1 77776 


PSU 




177776 


■PROCESSOR STATUS 


1501 


000606 


177570 


SWR 




177570 


-CONSOLE SUITCHES 


1502 


000610 


177560 


TKS 




177560 


-TTY READ STATUS REGISTER 


1503 


000612 


177562 


TKB 




177562 


-TTY READ BUFFER 


1S0A 


00061 A 


17756A 


TPS 




17756A 


-TTY PUNCH STATUS REGISTER 


1505 


000616 


177566 


TPB 




177566 


;TTY PUNCH OUTPUT REGISTER 


1506 


000620 


177550 


PRS 




177550 


-H/S READER STATUS REGISTER 


1507 


000622 


177552 


PRB 




177552 


-H/S READER BUFFER 


1508 


00062A 


15362A 


RANBAS: 15362A 


; RANDOM NUMBER GENERATOR BASE 


1509 


000626 


032561 


RANSAV: 032561 


-RANDOM NUMBER BUFFER 


1510 


000630 


000000 


RCSAV 


• 0 


-RECORD COUNT SAVE 


1511 


000632 


000000 


FCSAV 


0 


FRAME COUNT SAVE 
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SEQ 0037 
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:49 








1512 
















1513 










.FLAGS AND COUNTERS********** 




15U 
















1515 


000634 


000000 




nOLSU: 


0 ; 


urn CDDnD PDIUT cuiTru 
nUL CKNUN rKlNI oWilLn 




1516 


000636 


000000 




TINF: 


0 


TTV CUTCPV ri kR 
III CN 1 CN T r LAU 




1517 


000640 


000000 




TOB: 


0 ; 


TTV nilTDlIT DiirrcD 




1518 


000642 


000000 




TIB: 


0 : 


TTV TUPIIT PIIFFFD 




1519 


000644 


000000 




TEMPI: 


0 


TFMP CTHRlflF 




1520 


000646 


000000 




TEHP2: 


0 






1521 


000650 


000000 




TEHP3: 


0 


TFMP CTHPiRF 




1522 


000652 


000000 




NRZOF: 


0 


kiP7 nui V Fl k(i 




1523 


000654 


000000 




EHADDR: 0 






152A 


000656 


000000 




BLCNTR: 0 


Bi nrr rniiMTFD 




1525 


000660 


000000 




BBC: 


0 


RAh PFrnpn rniiuTFR 




1526 


000662 


000000 




EOTREC: 0 


FnT Fi kli 
CUI rLnU 




1527 


000664 


000000 




RTRN* 


0 


TMTFRRIIIIPT RFTIIRN ^TQRAGF 




1528 


000666 


000000 




HDRFL. 


0 


UFAnFR ri kR 




1529 


000670 


000000 




STAL: 


0 


• nFI AV CTnRARF 
UCLni d 1 Un A\JC 




1530 


000672 


000000 




PFLG: 


0 


■ PRIMT Fl AR 




1531 


000674 


000000 




HTC1: 


0 


•Uk(i TAPF rnuT RFGICTFR RIIFFFR 




1532 


000676 


000000 




UNP: 


0 


■IIUIT TARI F PniUTFR 
, Uril 1 1 nOLC ruin ICR 




1533 


000700 


000000 




THFLG 


0 


■ TAPF HADK Fl AC 
1 nrC nnnR r LnU 




153A 


000702 


000000 




RPCNT 


0 


■RFPFAT rnilllTFR 
rnCrCni vUUIVICII 




1535 


000704 


000000 




RTCNT 


0 


•RFTRV rnilllTFR 
, nC 1 n 1 vUull 1 Cn 




1536 


000706 


000000 




DERFL 


0 


■nATA FRRflR Fi AC 

,Vnln CnnUn r UMU 




1537 


000710 


000000 




SERFL 


0 


•CTATIK FRROB Fl AC 




1538 


000712 


000000 




BCNT: 


0 


•RIT rnilllTFR 
p D 1 i vUUIl 1 Cn 




1539 


000714 


000000 




RTYFL 


0 


• BFTBV Fl kti 

f nC 1 n 1 r LnU 




15A0 


000716 


000000 




UPS: 


0 


•IIIIIT PniMTFR ^AUF 




15A1 


000720 


000000 




BDPP: 


0 


•RITC nRnPPFD PniMTFR 




1542 


000722 


000000 




BPKP: 


0 


;BITS PICKED POINTER 




1543 


000724 


000000 




ERSAV 


• 0 


; ERROR SAVE LOC 




1544 


000726 


000000 




BTFLG 


• 0 


;6AD TAPE FLAG 




1545 


000730 


000000 




BTSTF 


■ 0 


.STATISTIC PRINT FLAG 




1546 


000732 


000000 




BTPT: 


0 


.BAD TAPE POINTER 




1547 


000734 


000000 




ERTFL 


■ 0 


;ERASE FLAG 




1548 


000736 


000000 




ASEQF 


: 0 


;AUTO SEQ FLAG 




1549 


000740 


000300 




AORVN 


: 0 


;UTO SEQ DRIVE NUMBER 




1550 


000742 


000000 




ABLCNT: 0 


;AUTO BLOCK COUNTER 




1551 


000744 


000000 




ASEQCF: 0 


;AUTO SEQ CONTINUOUS FLAG 
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SEQ 0038 



1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

158; 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 



000746 
000750 
000752 
000754 
000756 
000760 
000762 
000764 
000766 



000770 
000772 
000774 
000776 
001000 
001002 
001004 
001006 
001010 
001012 
001014 
001016 
001020 
001022 
001024 
001026 



001030 
001032 
001034 
001036 
001040 
001042 
001044 
001046 



001050 
001052 
001054 
001056 
001060 
001062 
001064 
001066 



000000 


UNI 


0 


000000 


UN2 


0 


000000 


UN3 


0 


000000 


UN4 


0 


000000 


UN5 


0 


000000 


UN6 


0 


000000 


UN7 


0 


000000 


UN8 


0 


177777 


UNX 


-1 



001210 
001230 
001250 
001270 
001310 
001330 
001350 
001370 
001410 
001430 
001450 
001470 
001510 
001530 
001550 
001570 



001610 
001714 
002020 
002124 
002230 
002334 
002440 
002544 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



PIKI 
PIK2 
PIK3 
PIK4 
PIK5 
PIK6 
PIK7 
PIK8 
DRP1 
DRP2 
DRP3 
DRP4 
DRP5 
DRP6 
DRP7 
DRP8 



.•UNIT ORDER AND DESCRIPTION TABLE 

.THIS TABLE IS LOADED 
.WITH UNIT NUMBERS AND 

: THEIR DESCRIPTIONS IN 
;THE ORDER THAT THEY 
;UILL BE TESTED 



.■UNIT DROPS AND PICKS POINTERS' 

BPOO 
BP10 
BP20 
BP30 
BP40 
BP50 
BP60 
BP70 
BDOO 
BD10 
BD20 
BD30 
BD40 
BD50 
BD60 
BD70 



.-UNIT BAD TAPE POINTERS' 



BTADDR: BTOO 
BT01 
BT02 
BT03 
BT04 
BT05 
BT06 
BT07 



.■UNIT WRITE RETRY COUNTER' 



RTY1: 


0 


RTr2: 


0 


RTY3. 


0 


RTY4 


0 


RTV5 


0 


RTY6 


0 


RTY7 


0 


RTY8 


• 0 



:UNIT WRITE ERRORS' 













N 3 




Tn02/TUAS DATA 


RELIABILITY 


PROGRAM 
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SEQ 0039 


r 7TIII k 


P11 07-JUN-78 U 


:49 






1 DUO 


001070 


000000 




UTFR1 


0 

w 




1 ^no 

1 OUt 


001072 


000000 






0 




1 O 1 u 


001 07A 


000000 






0 




loll 


001076 


000000 




UTFR& 


0 

V 




1 0 1 c 


001100 


000000 




w 1 c n J 


0 

w 




1 D 1 J 


001102 


000000 




UTFR6 


0 
w 




1 D 1 *• 


001104 


000000 




UTFR7 


0 




1 A1 <t 
1 0 1 J 


001106 


000000 




UTFRft 


0 




1 A1A 
lO lO 














1A17 
1 0 1 f 














1 A1 A 
1 O 1 o 














1 A1Q 

1 Q 1 7 


001110 


000000 




RDFR1 


0 




1 WC V 


001112 


000000 




RDFR? 

n 1/ 1 n c 


0 




1 WC 1 


001 1U 


000000 




RDFR^ 

n V t •« ^ 


0 




lOCC 


001116 


000000 




RDFR4 


w 




1 QCj 


001120 


000000 






■ 0 




1 oc*t 


001122 


000000 




RDFR6 


0 




1 OCJ 


001124 


000000 




RDER7 


0 






001126 


000000 




RDER8 


: 0 




1 WC f 














1 OCO 














1 OC7 














1 0 


001130 


000000 




DATER1: 0 




1 A^l 

1 O J 1 


001132 


000000 






0 




1 

1 O 


001134 


000000 






0 




1 

1 Ojj 


001136 


000000 






0 




1 O J*v 


001 UO 


000000 






0 




1 W V J 


001 U2 


000000 






0 




1 


001 U4 


000000 






0 






001 U6 


000000 






0 
































1 w"tw 














1 A^l 


001150 


000000 




RDERR1: 0 




1 


001152 


000000 






0 






001154 


000000 






0 






001156 


000000 






0 




1 A^S 


001160 


000000 






0 






001162 


000000 






0 




1647 


001164 


000000 






0 




1648 

1 o"f o 


001166 


000000 






0 




164Q 




























16S1 














16^? 

1 W^C 


001170 


000000 




DEREV1: 0 






001172 


000000 






0 




165A 


001174 


000000 






0 




1655 


001176 


000000 






0 




1656 


001200 


000000 






0 




1657 


001202 


000000 






0 




1658 


001204 


000000 






0 




1659 


001206 


000000 






0 





Tn02/TUA5 DATA RELIABILITY PROGRAM 
CZTUIA.Pll 07-JUN-7S 14:49 



B 4 
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SEQ 0040 



1660 








; DROPS 


1661 










1662 


001210 


000000 


BPOO: 


0 


1663 




001230 




.=.♦16 


1664 


001230 


000000 


BP10: 


0 


1665 




001250 




.=.♦16 


1666 


001250 


000000 


BP20: 


0 


1667 




001270 




.=.♦16 


1668 


001270 


000000 


BP30: 


0 


1669 




001310 




.=.♦16 


1670 


001310 


000000 


BP40: 


0 


1671 




001330 




.=.♦16 


1672 


001 330 


000000 


BP50: 


0 


1673 




001350 




.=.♦16 


1674 


001350 


000000 


BP60: 


0 


1675 




001 370 




.=.♦16 


1676 


001 370 


000000 


BP 70: 


0 


1677 




001410 




.=.♦16 


1678 


001410 


000000 


BDOO: 


0 


1679 




001430 




.=.♦16 


1680 


001430 


000000 


BD10: 


0 


1681 




001450 




.=.♦16 


1682 


001450 


000000 


BD20: 


0 


1683 




001470 




.=.♦16 


1684 


001470 


000000 


BD30: 


0 


1685 




001510 




.=.♦16 


1686 


001510 


000000 


BD40: 


0 


1687 




001 530 




.=.♦16 


1688 


001530 


A A A A A A 

000000 


BD50: 


0 


1689 




001550 




.=.♦16 


1690 


001550 


000000 


BD60: 


0 


1691 




001570 




.=.♦16 


1692 


001570 


000000 


BD70: 


0 


1693 




001610 




.=.♦16 


1694 










1695 











TH02/TU45 DATA RELIABILITY PROGRAM 
CZTUIA.P11 07-JUN-78 14:49 



1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

170A 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

17U 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

172A 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 



001610 
001714 
002020 
002124 
002230 
002334 
002440 
002544 



002650 
002652 
002654 
002656 
002660 
002662 
002664 
002666 



002670 
002672 
002674 
002676 
002700 
002702 
002704 
002706 



002710 
002712 
002714 
002716 
002720 
002722 
002724 
002726 



000000 
001714 
000000 
002020 
000000 
002124 
000000 
002230 
000000 
002334 
000000 
002440 
000000 
002544 
000000 
002650 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



C 4 
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.•UNIT BAD TAPE C0UNTER:16 PER SLAVE********** 

BTOO: 0 

.=.♦102 
BT01 : 0 

.=.♦102 
BT02: 0 

.=.♦102 
BT03: 0 

.=.♦102 
BT04: 0 

.=.♦102 
BT05: 0 

.=.♦102 
BT06: 0 

. = .♦102 
BT07: 0 

.=.♦102 



SEQ 0041 



.•UNIT END OF TAPE COUNTERS 1 PER SLAVE< 



EOTCO: 0 
0 
0 
0 
0 
0 
0 
0 



.-UNIT READ FORWARD SOFT ERROR******* 



RFSOFT: 0 
0 
0 
0 
0 
0 
0 
0 



.-UNIT READ REVERSE SOFT ERROR******* 



RRSOFT: 0 
0 
0 

- 8 

0 
0 
0 



TH02/1U4S DATA 


RFl I ARII I TV 


PROGRAM 


HACY11 


D 


4 

13:40 PAGE 42 


CZTU1A.P11 ( 


97-JUM-78 14 


49 










SEQ 0042 


1749 


















1750 












•UNIT RFAD FORWARD 




1751 


















1752 


002730 

WVfc ( 


000000 




RFHARD: 


0 






1753 


002732 


000000 

wvvwvv 








0 

w 






1754 


002734 


000000 

WW www 








0 

w 






1755 


002736 


000000 

V WW w W V 








0 

w 






1756 


002740 


000000 

WWW www 








0 






1757 


002742 

WW W f T t 


000000 

WW WW WW 








0 






1758 


002744 


000000 

WW WW WW 








0 






1759 


002746 

VV W • » w 


000000 








0 






1760 


















1761 












-UNIT RFAD RFVFRSF 


HARD ERROR******* 


1762 
















1763 


002750 


000000 

WW WW WW 




RRHARD: 


0 

w 






176A 


002752 


000000 

WW WW WW 








0 

w 






1765 


002754 


000000 

WW WWWW 








0 

w 






1766 


002756 


000000 

www WW 








0 

w 






1767 


002760 


000000 

WW WW WW 








0 

w 






1768 


002762 


000000 

WW WW WW 








0 

w 






1769 


002764 


000000 

www www 








0 






1770 


002766 


000000 

W V w w w w 








0 






1771 


















1772 












.-DATA PATTERN GENERATORS' 




1773 


















1774 


002770 


002770 




OATBL 








;ENTRY TABLE 


1775 


002772 


014414 




DATAO 




DATO 




■EXTERNAL INPUT FROM H/S READER(SEE Z2-CZTUNA0) 


1776 


002774 


014566 




DATA1 




DAT1 




-ALL ONES ' 


1777 


002776 


014610 




DATA2 




DAT2 




;ALL ZEROS 


1778 


003000 


014616 




DATA3 




0AT3 




^WALKING ONE 


1779 


003002 


014644 




0ATA4 




DAT4 




;UALKING ZERO 


1780 


003004 


014656 




0ATA5 




0AT5 




-ALTERNATING ONE/ZERO 


1781 


003006 


014666 

W I » W WW 




DATA6 




DAT6 




ALTERNATING ZERO/ONE 


1782 


003010 


014676 




DATA7 




0AT7 




lALTERNATING ONE/ZERO IN ALTERNATING CHARACTERS 


1783 


003012 


014726 




DATA10: 


0AT1O 




;UALICING ONE/ALL ONE IN ALTERNATING CHARACTERS 


1784 


003014 


014760 




DATA1 1 : 


DAT11 




-ALL BITS 0-377 


1785 


003016 


015002 




DATA12: 


0AT12 




ALL BITS 377-0 


1786 


003020 


015026 




0ATA13: 


0AT13 




-ALTERNATING CHARACTERS 0 AND 377 


1787 


003022 


015036 




0ATA14: 


0AT14 




-WALKING ZERO/ALL ZERO IN ALTERNATING CHARACTERS 


1788 


003024 


015070 




DATA15: 


DAT15 




-AUTO SEQUENCE PATTERN 0.0.-1.-1.-1,0,0 


1789 

















Tn02/TU45 DATA RELIABILITY PROGRAM HACY11 
C2TUIA.P11 07-JUN-78 U:49 

1/90 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

180A 

1805 

1806 

1807 



1 flAB 

leuo 


UUjUcO 




1 7^7Ay 




C T A D T • 


1 ■no 




VlCfOf 


AAAAAI 
U0UUU1 


1 75^7* 
1 fjJfO 




101U 






A1 31 A£ 

U1c1h*» 






1 All 

loll 


t\f\Xf\£.L 


AAA1 A7 
UUU lOr 


AAAAI Z. 
UUUU 1 *• 






1 fii 3 

1 01 c 




AACA/L7 


1 7CCiL3 
1 fOJOC 




C T AD - 


1 01 J 




AAA^ iL7 
UUU i 0 f 


UUUUos 






ioi*» 


UUjUoU 


AACAiL7 

UU jUor 


1 fjJJC 




C T A D T A ■ 

5 1 An 1 A : 


1 0 1 J 




A1 57AA 
U 1 CI MM 


UUUO*iU 




C T AD TD f 

0 1 AK Id : 


1 B1 iL 
1010 




A1 37A1 
Ulcf Ul 


AAAAT7 

UUUU J ' 






1 01 r 




AACA9A 

UUsUeU 






C T AD T A « 
5 IAN 1 U* 


1010 




UUj3U1 








1 B1 O 

1 0 1 7 


(\f\x^ nn 
yjvj 1 uu 


AA1 17^ 
UU 1 J 








18P0 


0051 OP 




000500 

WW W 






1821 


003106 


004767 


001116 






1822 


003112 


012700 


001050 






1823 


003116 


012701 


000750 






182A 


003122 


005020 






STARTF: 


1825 


003124 


005301 








1826 


003126 


001375 








1827 


003130 


012767 


177777 


011252 




1828 


003136 


012767 


000001 


175512 


STARTE: 


1829 


003144 


012706 


000500 




STARTD: 


1830 


003150 


012777 


000340 


175426 




1831 


003156 


004767 


007152 






1832 


003162 


012777 


000040 


175330 




1833 


003170 


005000 






STAUTO: 


1834 


003172 


005160 


000746 




STAROA: 


1835 


003176 


001411 








1836 


003200 


005160 


000746 






1837 


003204 


042760 


100000 


000746 




1838 


003212 


062700 


000002 






1839 


003216 


000167 


177750 






1840 


003222 


005160 


000746 




STAROB. 


1841 


003226 


016703 


001550 






1842 


003232 


000303 








1843 


003234 


110367 


001542 






1844 


003240 


005067 


175370 






1845 


003244 


012777 


000100 


175336 


START1. 



E 4 
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SEQ 0043 



.EVEN 

•PROGRAM START AND SEQUENCE FORMATTER: 

•THIS ROUTINE IS USED TO PERFORM ALL HOUSEKEEPING, 
.DECIDE WHICH TRANSPORT TO TEST AND ITS AVAILABILITY, 
;LOAD THE WRITE BUFFER WITH THE SELECTED DATA PATTERN, 
.•GENERATE ANY RANDOM NUMBER AND THEN EXECUTE 
;THE TEST CYCLE REQUESTED BY THE SWITCH SETTING. 
;AT THE END OF THE TEST CYCLE THE NEXT UNIT IS SELECTED 
.-AND CHECKED FOR AVAILABILITY AND THE TEST CYCLE IS 
.EXECUTED ON IT. 

.-THE READ WRITE STATS MAY BE PRINTED AT THE END OF 
.■EACH TEST CYCLE VIA CONSOLE SWITCH FOURTEEN (14). 



CLR 


A C C AC 


CAA AllTA CCAllCUf*e Tt A/* 

f'CLcAR AUTO ScQUcNCc FLAG 


nov 


ill T T ftir 
ffl , T INF 


;5cT TIT cNTnY FLAG 


n II 
CLR 


RDFL 


.CLEAR RANDOM DATA FLAG 


Jnr 


C T A D TD 

5 1 AK Id 




ri D 
CLR 


1 IHt 


• n CAD TTV f AlDIIT CI AT 

.(.LcAR TTi INPUT FLAG 




STARTD 




C 1 D 

CLR 


TINr 


m rt CAD TTV CUTDV CI A^ 

:clcAr tty entry flag 


nov 


#TnD DA 

#Tuo ,RU 




nuv 


ill7 D1 

93 f ,R1 




CLR 


f DA % A. 

\ RU; ♦ 


■ ^1 CAD CI A^C AAin milAITCDC 

; CLEAR FLAGS AND COUNTERS 


Del 


D1 

Kl 




Dye 
ONE 


C T ADT A 
3 1 AK 1 U 




NOV 


tSOO SP 




JSR 


PCRANSET 


;G0 RESET RANDOM BASE 


NOV 


fRTYl,RO 




NOV 


#750, RI 




CLR 


(RO)* 


.•CLEAR STATISTIC COUNTERS 


DEC 


RI 




BNE 


STARTF 




MOV 


f-1,PATS 


;PRESET PATTERN 


MOV 


f1,BLCNTR 


;PRESET BLOCK COUNTER 


NOV 


#500, SP 




NOV 


f340,aPSU 




JSR 


PCTINP 


:G0 GET PARAMETERS FROM TTY 


NOV 


#40,acs 


.•INITIALIZE 


CLR 


RO 


.•POINT TO FIRST ENTRY 


CON 


UNKRO^ 


;SEE IF LAST ENTRY 


BEQ 


STAROB 


:IF SO: BR 


CON 


UNKRO) 




BIC 


f100000,UNl(RO) 


.•CLEAR EOT FLAG 


ADD 


f2,R0 


.•POINT TO NEXT UNIT ENTRY 


JNP 


STAROA 


.•CONTINUE CLEARING 


CON 


UNHRO) 




MOV 


RE0TC,R3 




SWAB 


R3 




NOVB 


R3,RE0TC 


.RESTORE EOT CNTR 


CLR 


MOLSU 


;;RESET OFFLINE SW 


NOV 


#ioo,aTKS 


.SET TTY INTERRUPT ENABLE 



TH02/TU^5 DATA 


RELIABILITY PROGRAM 


MACY11 


30(1046) 


F 4 

15-JUN-78 13:40 PAGE 44 


r 7 Ti 1 f I 


07-JUN-78 


iHrsV 










SEQ 0044 


1 BAA 
1 Oho 


003252 


016700 


1 7C/ OA 

1 fjMcyj 






nov 


UNP.RO :R0 = UNIT TABLE POINTER 


1 OH f 


003256 


005160 


000 f HO 




STAR1A: 


CON 


UNKRO) 




1 OHO 


003262 


001407 








BEQ 


STARTS 


IF LAST UNIT IN STRING: BR 


1 fi/ Q 
1 OhV 


003264 


005160 


AAA7/ A 

000 r 46 






CON 


UNKRO) 






003270 


016067 


OUUfHO 


1 f 5c5h 




NOV 


UN1(R0),U0ES .-LOAD NEXT UNIT DESCRIPTION 


1 BC1 

1 051 


003276 


000167 


U001 cH 






JNP 


d 1 An 1 H 




lOJC 


003302 


005267 


1 7CTCn 

1 f 5j50 




STAR1B: 


INC 


D| TklTD 


RiiMD Rl nrir rniiUTFO 

DUnr DLUl.^ LUUNICK 


1 BCT 

1 OJJ 


003306 


005767 


1 f 5hch 






TST 


ACFQP 


9CC 1 r AU I U dCU 


• O JH 


003312 


001413 








BEQ 


d 1 An 1 \» 1 


r r urtT ■ rd 
1 r Nu 1 » On 


1 BCC 
1 053 


0033K 


026767 


1 7CTTA 


1 r 5HeU 




CNP 


Rl rUTD ARI ruT 
DLLN 1 n ( ADLLH 1 


<FP TP nnkiF CPQ 

dec Jr i/UnC 9CU 


1 BCA 
' 050 


003322 


001007 








BNE 


d 1 An 1 L 


I r rau 1 • On 


1 BC7 

io5# 


00332A 


005160 


000/ HO 






CON 




BFCPT IIMTT TARI P TFBMTMATnB 


1 B5o 


003330 


005067 


1 fj ice 






CLR 




BPCPT Rj nrir ruTB 


1 05t 


003334 


005067 


1 r 5530 






CLR 




BFCFT IIMIT PntMTFP 


1 AAO 
1 oOU 


003340 


000207 








RTS 


pr 


•PFTIIBII in Allin CPQ 


1 00 1 


003342 


005067 


1 7^'?70 
1 fjJj\J 




STARK: 


CLR 






1 00c 


003346 


005160 


UUUr hO 






con 


IIM1 (BO) 
UU 1 \ nu / 




1 BAY 
1 005 


003352 


005000 








CLR 


nU 




1 AAA 
1 OOh 


003354 


016067 


UUUr hO 


1 7^1 7n 

1 f 3 1 f U 




NOV 


UNI \ n V / #UVC 


■IDAf) FIBCT IIMTT RFCrBIPTinili 


1 OOj 


003362 


032777 


UUUcUU 


1 7S31 A 
1 r 5c 1 0 




BIT 


vCvv#VdWn 


■CFF IF BANnnM RFmBD CT7F 
OCC ir nANUUn ncuunu Oi^C 


1 AAA 
1 OOO 


003370 


001402 - 








BEQ 


0 1 An 1 c 


• I F NOT • RB 
1 r fiw 1 • Dn 


1flA7 


003372 


004767 


OnAAC? 
UU005C 






JSR 


pr rrilTR 


■Cn CPIIFBATF BAIinOM BPrrtBH Cf7F 


1 AAA 


003376 


032777 


UUUhUU 


1 r 3cUc 


START2: 


BIT 


#£00 a CUB 


'CFF IF BAMDOM RATA 

r dec ir nAivi/un vmia 


1 AAQ 


003404 


001402 








BEQ 


d 1 nn 1 J 


. J p fig J . 


1 A70 
1 0' U 


003406 


004767 


U 1 1 55U 






JSR 


PC.OATR 


;G0 GENERATE RANDOM DATA 


1 A71 

1 Or 1 


003412 


032777 


UUU 1 UU 


1 7^1 AA 
1 r 3 I OO 


START3: 


BIT 


fioo.asuR 


;SEE IF RANDOM RECORD COUNT 


1 A75 

■ Ore 


003420 


001402 








BEQ 


START4 


;IF NOT: BR 


1 A7T 

1 Or 3 


003422 


004767 


nnAAA? 

UUOOOc 






JSR 


PC RCNTR 


;G0 GENERATE RANDON RECORD COUNT 


1 A7A 
1 Of 1 


003426 


032760 


1 uuuuu 


UUU r HO 


START4: 


BIT 


#ld0000,UN1(R0) 


;SEE IF REACHED EOT 


1 A7C 

1 Or J 


003434 


001402 








BEQ 


STAR40 


;IF NOT: BR 


1B7A 
lOrO 


003436 


000167 


UUU55H 






JNP 


START7 


;ELSE GO TO NEXT UNIT 


1A77 
lOr r 


003442 


016777 


1 r 7 lUc 


1 r 3U3U 


STAR40: 


NOV 


DVN.aCS 


;SET DRIVE NUMBER 


1 A7A 

1 Or O 


003450 


016777 


1 7^n7A 


1 7snAi 

1 ( 3V0H 




NOV 


U0ES,aC2 


;SET UNIT NUMBER 


1 A7Q 

1 Of T 


003456 


032777 


UUUcUU 


1 r 3U50 




BIT 


#200, iDS 


;SEE IF UNIT AVAIL 


1 AAA 

1 OOU 


003464 


001014 








BNE 


STAR4A 


;IF SO: BR 


1 AA1 

1 OO 1 


003466 


005367 


1 7^1 7A 

1 r J 1 r 0 






DEC 


STAL 




1 AB5 
1 OOc 


003472 


001355 








BNE 


START4 ; AWAIT TUR 


1 ART 


003474 


004767 


U 1 r 3UU 






JSR 


PCPAPRT .-PRINT HEADER 


1 AAA 
1 ooh 


003500 


012704 


UcO 1 1 J 






NOV 


fNSG49,R4 




1 AA^ 


003504 


004767 


Uc WH 1 C 






JSR 


PC. T TOUT 


■PRINT NOT AVAIL 


1 AAA 
1 OOO 


003510 


000000 








HALT 


■STOP 


1 AA7 

1 OO r 


003512 


000167 


1 7771 n 






JNP 


START4 


•RETRY 


1 AAA 

1 OOO 


003516 


004767 


U 1 UH3H 




STAR4A: 


JSR 


PC.DSUP 


■GO SET UP WRITE DATA 


1 AAQ 

1 OOT 


003522 


004767 


nni 5CA 

UU 1 c50 






JSR 


PC.RWND 


;REWIND 


1 Aon 

1 OtU 


003526 


004767 


UU 1 OhO 






JSR 


PC, WRITE 


; WRITE 


1 AQ1 

1 07 1 


003532 


016767 


1 f jUhU 


1 7^ 1 TA 

1 r 3 1 




NOV 


TSTAL.STAL 


;SET TURN AROUND DELAY 


1 07c 


003540 


004767 


nnAA7z 

UUOh f * 






JSR 


PC. STALL 


; DELAY 


1 oyj 


003544 


00*767 


MM J J 1 C 






JSR 


PCRSEQ 


;G0 TO READ SEQUENCER 


1 ML 

1 OtH 


003550 


010767 


1 7Sn55 
1 1 jMCC 


1 7^1 1 3 

1 r 3 1 1 c 




NOV 


TSTAL,STAL 


■SET TURN AROUND DELAY 


1 AO^ 
1 073 


003556 


004767 


UU0h50 






JSR 


PC, STALL 


DELAY 


1896 


003562 


032777 


040000 


175016 




BIT 


f 40000, aswR 


■SEE IF SHOULD PRINT STATISTICS 


1897 


003570 


001565 








BEQ 


STARTS 


■IF NOT: BR 


1 BOB 

1 ovo 


003572 


012700 


OOUUU 1 






NOV 


fl.RO 


SET RECORD COUNTER TO 1 


1899 


003576 


004767 


017376 






JSR 


PCPAPRT 


■PRINT CYCLE NUMBER 


1900 


003602 


004767 


000004 






JSR 


PCSTP 


■GO PRINT STATS 


1901 


003606 


000167 


000316 






JNP 


STPX 





G 4 
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1902 


003612 


AA^ 9 

004767 


Ai T C T A 

01 3530 


STP: JSR 


PC ,DPPRT 


; PRINT DROPS AND PICKS 


1903 


AATZ 4 Z 

003616 


A4 ^?A/ 

012704 


C26325 


NOV 


fnSG65,RA 






A AT ^ ^ ^ 

003622 


A A / ?Z T 

004767 


A ^ A ^ ^ / 

020274 


JSR 


A^ T T Al ■ T 

PC, T TOUT 


; PRINT RcTRt total 


i AAC 

1905 


003626 


A^ ^ 7Ay 

016704 


1 75044 


nOM 


UNP,R4 




1906 


AAT^ X'i 

003632 


A i i AT 

016403 


AAi AC A 

001050 


nov 


RTTl ikh; ,R3 




1 AA7 

190f 


003636 


AAi 7Z 7 

004767 


020432 


JSR 


A A A ^ T A 

PC ,0CTP 


;PRINT RETRIES 


4 AAO 

1908 


003642 


Ai T7A/ 

012704 


A1X/ 7X 

026476 


NOV 


• ■■c^7T A/ 

• nSGf 3,R4 


• DD^UT LIDfTC CDDAD TAr 

:PRINT WRITE ERROR TAb 


i OAO 

1909 


003646 


AA/ 7i 7 

004 f 67 


A*! A*! C A 

020250 


JSR 


or T T Al 1 T 

PC , TTOUT 


i Oi A 

1910 


AAT^ C '5 

003652 


Ai X7A/ 

016f 04 


i TCATA 

1 f 5020 


HOV 


UNr , Rh 




i Oi 1 
191 1 


003656 


Ai Z./ AT 

016403 


AAi A7A 
OOlOf 0 


MAII 

nov 


IJTCDi/D/\ 

Ul cR 1 \Hh) 






00366<: 


AAi 7X7 

004 fOf 


ATA/ AX 

0c0*06 


■ CD 

JSR 


PC ,0t IP 


• DD1UT LJDf TC CDDADC 

;PRINI WRIlt ERRORS 


1 Oi T 

1 91 3 


003666 


AI T7Ay 

0 1 cr04 


ATX/ XC 

0<:6*65 


■■nil 

nov 


JIM C/" 70 Ik/. 

fnSur c #Rh 




191^ 


AATX70 

0036 


AO/ 7X7 
004 fbf 


OeOce* 


JSR 


fir TTmiT 
PC # TTOUT 


• DDffUT DCAfl CADLIXDA CDDAD TAr 

;rRlNI RcAD r UnWAKD cKKUK lAu 


1 91 3 


AAT^ 7X 

0036 r 0 


Ai X 7A/ 

016f 04 


i 7/ 77X 
1 f 4f r* 


■■mi 

nov 


HUB B/ 

UNP.R* 




i Oi ^ 

1916 


AAV7A ) 

003 r 02 


Ai X y AT 

016403 


AAi i i A 

001 110 


nov 


DACDi f D/ \ DT 

RDcRl (R*) ,R3 




1 Oi 7 
1 V 1 f 


AAT7AX 

003 r 06 


AA/ 7X7 

00* fOf 


a6atx? 
0c036c 


i CD 

J)K 


or nr td 
PC ,0C 1 r 


■ DDfUT DC A^ CADLJADr^ CDDADC 

;rKlNI KtAl; rUKWAHU cKKOKS 


IVIO 


0U3r 1 c 


A1 '57rtZ 


Ocf 305 


nov 


• ■■C^l 1 T DA 

f nsu 1 1 3,K* 




1 010 


003r lo 


t\l\L 7X7 

OOAf 6f 


ATATAA 

OcOcOO 


1 CD 

JSR 


Dr TTAIIT 

rC , 1 lOU 1 


•DDtUT CnC T TA^ 

;rRlNI SUr 1 lAu 


1 OOA 


AAT7^0 

003r££ 


A1X7A/ 

OlOf 04 


i 7/ 7Crt 

1 f 4f 50 


■■All 

nov 


IIUD D/ 

UNP.R* 




i OOi 

19cl 




AI X/ AT 

010403 


AATX7A 

00c6f 0 


■■All 

nov 


DCCACT/D/ 1 DT 

nr SOf T lR*i ,R3 




1 o?7 
19^^ 


003r 3^ 


00*f 6f 


ATATTX 

020336 


1 elk 

JSR 


Dr nrTD 
PC.OCTP 


: PRINT FORWARD SOFT ERRORS 




003r 36 


Ai 07A/ 

Ulcf Oh 


A57T 1 X 

Ocf 316 


■■mi 

nov 


itMCr^ i X DX 

fnSull*,R* 


1 9^^ 


003f 4tf 


AA/ 7X7 

004 f6f 


ATA1 e/ 
OcOl 5* 


JSR 


at T T Al 1 T 

PC / T TOOT 


• DDtUT UADI\ TAr 

; PRINT HARD TAG 


1 9c3 


Ov5f'*b 


AiX7A/ 

01or04 


1 f *f C* 


■■All 

nov 


IIIID D/ 

upip,r* 




i OO^ 

19<6 


AAT7C O 

003^5£ 


Ai XXAT 

010^03 


AAT7'Trt 

OOcf 30 


■■All 

nov 


DCUADA/D/\ DT 

RT HARD\R*I ,R3 




19cf 


003r 56 


AA/ 7X 7 

004 f Of 


ATATi T 

Oc031c 


JSR 


Dr ArTD 

PC ,0C TP 


; PRINT HARD FORUARE ERRORS 


1 07B 


AAT7XT 

003rOc 


ni 57rtZ 

Olcf U*» 


Oco550 


nuv 


«iicr77 DL 
• nSof f ,K* 


1 07Q 
19£y 


0U3rOO 


AA/ 7X7 

00<»f Of 


A3A1 xn 
OcU 1 3U 


1 C D 

JSK 


or TTAIIT 

PC , I 100 1 


■ DDfUT AATA CDDAD CADLIADn TAr 

;rKlNI DAI A CnROK FORWARD TAu 


ItjU 


003' re 


m A7/tz 
UlOf 0* 


1 7A7AA 
1 f * f UU 


■■mi 

nov 


IIUD DX 

UNr ,R* 




ft1T77A 


010*113 


AAI 1 TA 

001 1 3U 


■ami 

nov 


nATCDIfDAI DT 

PAIcRl \R*J ,K3 






AA/ AAO 


A A/ 7X7 

00*f Of 


ATATXX 

OcOcoO 


ICD 

JSR 


Dr nrTD 
rC ,UL 1 r 


• DDfUT hATA CDDAD CADLiADD UIIIADCD 

;rKlNI DAI A CKKUR FUKWAKP NUnotR 


193 J 


AA/ AAZ 
00*»U06 


01 CIV'* 


Ueo301 


■■Oly 

nuv 


MMCtHa OL 






AA/.A1 5 

00*»U1 c 


nni 7X7 
00*f Of 


ATAi A/ 

UcUl U* 


ICD 

JSR 


Dr TTniiT 
rC , I 1 UU 1 


•DDfUT DCAn CDDAD DCUCDCC TAr 

;rRINI READ ERROR RcVERaC TAu 


7935 


AA/Ai < 

00<i010 


AiX7f\/ 

0 lOf 0* 


1 f *05* 


■■AU 

nov 


HUD DX 

UNP«R* 


IOTA 


AA/ A99 


Ai X/ AT 


AAI 1 CA 

UUl ijv 


nuv 


DnCDDI IOL\ dT 
KPcKR 1 \K* J «K3 




193f 


AA/ A5X 


AA/ 7X7 

00* f 0 f 


ATAT/ T 

0£OC*C 


JSR 


Dr ArTD 
PCOCTP 


; PRINT REVESE ERROR NUMBER 


It JO 


AA/ ATT 


AI 57rtZ 

U ICf Uh 


A57TAC 

Ocf 305 


■■AU 

nov 


^■■C^l 1 T D/ 

*nSuTT3,R* 




1 Q10 

193V 


AA/AT/t 


AA/ 7x 7 

004 f Of 


OcOOoO 


1 CD 

JSR 


D r T T m 1 T 
PC , T lOUI 


•DDfUT CAC T TAr 

;PR1NI aUT 1 lAu 






OlOf 0* 


1 f *03U 


nov 


IIUD DX 

UNP»R* 




1 OA1 


f\l\L l\LA 

OU*tU<tO 


rt1 AZ. AT 

01 0*03 


AA571 A 

OOc f 1 U 


■■AU 

nov 


DDcncr/DAt DT 
RRSOF 1 \R*i •K3 




1 OL 3 


00405c 


AA/ 7X7 

00* f o f 


ATATi X 

OcOclo 


ICD 

JSR 


Dr Ar TD 

PC ,0C TP 


• DDfUT DCllCDCr CACT CDDAD 

;PRINi REVtKbt SOr 1 ERROR 


^OLX 


AA< ACX 


01 C f U* 


Ucf 310 


nov 


•■■c r 1 i / D/ 
«nsu 1 1* ,R* 




1 OAA 


AA/Ai O 


AA/ 7X7 

00*f Of 


ATAAT/ 

Oc003* 


ICD 

JSR 


Dr TTAIIT 

PC , 1 lOUT 


■DDTUT UADA TAT 

;rNINI HAND lAu 


10ZC 


AA/.AAX 


AI X7f\/ 
0 1 0 f U* 


1 f *00* 


■■nil 

nov 


IIUD D/ 

UNP,R* 






Ai X/ AT 

010*03 


AA37CA 

OOc r 50 


■■All 

nov 


DDUADf%/D/ ) DT 

RRHARDiR* J ,R3 




1 QA7 




00*f Of 


A3A1 70 

OcOl f c 


ICD 

JSR 


Dr ArTD 
PC ,OCTP 




1 THO 


AA/.1 AT 


vicf u* 


Oc05*. 


■■mi 

nov 


■iitcr'7x D/ 
>nSuf o,R* 




1 T<»T 


AAA i AX 


AAA 7A7 
UU* /Of 


ATAA1 A 

UeUU 1 U 


1 C D 

JSK 


Dr TTflllT 

PC , I lUUT 


■ DDIUT hATA CDDAD DCUCDCC Tlfl 
;rKlNI DA 1 A CKKUN NtVCKat 1 Au 




00411? 

W~ lib 


016704 


174560 




IINP R4 




1951 


004116 


016403 


001170 


nov 


DEREV1(R4),R3 




1952 


004122 


004767 


020146 


JSR 


PCOCTP 


:PRINT DATA REVERSE ERROR NUMBER 


1953 


004126 


000207 




RTS 


PC 


■ TURN 


1954 


004130 


005267 


174574 


STPX: INC 


BTSTF 


•SET STAT ONLY PRINT 


1955 


004134 


004767 


003102 


JSR 


PC.BTPRT 


; PRINT BAD TAPE STATS 


1956 


004 UO 


005067 


174564 


CLR 


BTSTF 


.•CLEAR FLAG 


1957 


004144 


017700 


174436 


START5: MOV 


aSUR.RO 


.-LOAD SUR 
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SEO 0046 



1958 


004150 


042700 


1 77762 






Die 


1959 


004154 


022700 

WW t * w 


00001 5 

WWW 1 ^ 






CMP 


1960 


004160 


001421 








RFQ 


1961 


004162 


032777 


000200 


174332 


STAftT6 - 


BIT 


1962 


004170 


001012 






BNE 


1963 


004172 


005367 


174472 






DEC 


1964 


004176 


001371 








BNE 


1965 


004200 


004767 


016774 






JSR 


1966 


004204 


012704 


026113 






NOV 


1967 


004210 


004767 


01 7706 






JSR 


1968 


004214 


000000 








HALT 


1969 


004216 


062767 


000002 


174452 


START7: 


ADD 


1970 


004224 


000167 


177014 




STARTS: 


JHP 


1971 












1972 












: RANDOM 


1973 












1974 


004230 


012767 


153624 


174366 


RANSET: 


nov 


1975 


004236 


012767 


032561 


1 74362 




NOV 


1976 


004244 


016767 


174360 


174302 




NOV 


1977 


004252 


016767 


174354 


174276 




NOV 


1978 


004260 


000207 








RTS 


1979 















#177762. RO 

#15. RO 

STARTS 

#200. iDS 

START7 

STAL 

START6 

PC.PAPRT 

#NSG49,R4 

PC.TTOUT 

#2.UNP 
START1 



NASK READ/WRITE SWITCHES 
SEE IF HAVE READ OR WRITE 
IF NOT: BR 

SEE IF HAVE UNIT READY 
IF SO: BR 

.•DELAY FOR TUR 
.•PRINT HEADER 

PRINT NOT AVAIL 
STOP 

POINT TO NEXT UNIT 
CONTINUE 



:RANDON BASE RESET******t*** 



#1 53624. RANBAS 
#32561 .RANSAV 
RCSAV.RCNT 
FCSAV.FNCNT 
PC 



RESET BA:£ 

RESET BUFFER 

RESET RECORD COUNT 

RESET FRANE COUNT 



r 
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1981 
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1983 
198A 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
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SEQ 0047 



.-REWIND FROn EOT: 

i-UHEN ANY TRANSPORT BEING TESTED REACHES END OF TAPE 
.DURING A READ OR URITE OPERATION, IT WILL BE REWOUND 
.-AND FLAGGED AS UNAVAILABLE UNTIL ALL AVAILABLE UNITS 
;HAVE REACHED EOT AT WHICH TIRE ALL TESTING WILL BE RESUMED 
:AT A BLOCK COUNT OF ONE (1). A MESSAGE WILL BE 
.•PRINTED ON THE SUPERVISORS CONSOLE AS EACH UNIT REACHES 
;EOT AND IS REWOUND. 



1992 


004262 


016777 


1 74264 

1 ■ ~tw^ 


1 74252 




NOV 


UDES ac2 


■LOAD CONRAND REGISTER 


1993 

1 WW J 


004270 


012777 

Vie* ■ ■ 


00001 1 

WW 1 I 


174212 




MOV 


#11 aci 


■DRIVE CLEAR 


199A 


004276 


032777 

III 


000200 

WVh w 


174216 


RE0T1 : 


BIT 


#200. iDS 

W b W W f W W 




1995 


004304 


001774 








BEQ 


RE0T1 


-AWAIT DRY 


1996 


004306 


012777 


000007 

WW WW w 1 


174174 




nov 


#7. aci 


.•START REWIND 


1997 


004314 


005767 

w ^ 1 1 


174406 






TST 


BTFLG 


■SEE IF BAD TAPE OVERFLOW REWIND 

f W k k A ■ WW 1 r^l k W V k *« ■ k WOT >*k**4 (VW 


1998 


004320 


001004 








BNE 


RE0T1A 


•IF SO: BR 


1999 


004322 


016700 


174334 






nov 


EOTREC.RO 




2000 


004326 


042700 


100000 

1 W V w w w 






BIC 


#1 00000. RO 


:SET RECORD NUMBER OF EOT 


2001 


004332 


004767 


016642 




RE0T1A: 


JSR 


PC.PAPRT 


■PRINT HEADER 


2002 


004336 


022767 


000002 


1 74362 




CHP 


#2, BTFLG 


'SEE IF POSITION ERROR 

m W k k A ' ■ ^0 W 4 14 ^0 k * * ' « v 


2003 


004344 


001003 








BNE 


RE0T1B 


:IF NOT: BR 


2004 


004346 


012704 


027176 






nov 


#nSG109.R4 


'SET POSITION ERROR MSG 


2005 


004352 


000406 








BR 


RE0T1F 




2006 


004354 


022767 


000001 


174344 


RE0T16: 


cnp 


#1 .BTFLG 


;SEE IF BAD TAPE OVERFLOW 


2007 


004362 


001005 








BNE 


RE0T1C 


:IF NOT: BR 


2008 


004364 


012704 


027007 






nov 


#nSG106.R4 


;SET BAD TAPE OVERFLOW nS6 

* W k ■ W ■ k ^0 V k ' v ' k ^0 OT 1 ■ W ^# 


2009 


004370 


004767 


017526 




RE0T1F : 


JSR 


PC.TTOUT 


; PRINT REWIND REASON 


2010 


004374 


000414 








BR 


RE0T1E 




2011 


004376 


012704 


025116 




RE0T1C: 


nov 


#nSG20.R4 


:SET EOT nSG 


2012 


004402 


004767 


017514 




RE0T1D: 


JSR 


PC.TTOUT 


; PRINT nSG 


2013 


004406 


016704 


174264 






nov 


UNP.R4 




2014 


004412 


005264 


002650 






INC 


EOTC0(R4) 


:BUnP CNTR 


2015 


004416 


016403 


002650 






nov 


EOTC0(R4) .R3 




2016 


004422 


004767 


017646 






JSR 


PC.OCTP 


:PRINT EOT CNTR 


2017 


004426 


012704 


027034 




RE0T1E: 


nov 


#nSG16A,R4 




2018 


004432 


004767 


017464 






JSR 


PC.TTOUT 


; PRINT RESTART nSG 


2019 


004436 


005067 


174264 






CLR 


BTFLG 


.'CLEAR BAD TAPE FLAG 


2020 


004442 


004767 


177144 






JSR 


PC.STP 


;PRINT STATS 


2021 


004446 


004767 


002570 






JSR 


PC.BTPRT 


.'PRINT BAD TAPE STATS 


2022 


004452 


032777 


000200 


174042 


RE0T2: 


BIT 


#200, iDS 




2023 


004460 


001015 








BNE 


RE0T2A 


;IF DRY: BR 


2024 


004462 


005367 


174202 






DEC 


STAL 




2025 


004466 


001371 








BNE 


RE0T2 


;WAIT DRY 


2026 


004470 


012767 


024755 


174156 




nov 


#nSG6,EnADDR 




2027 


004476 


004767 


016476 






JSR 


PCPAPRT 


.'PRINT HEADER 


2028 


004502 


012704 


026267 






nov 


#nSG60.R4 




2029 


004506 


004767 


017410 






JSR 


PCTTOUT 


.-PRINT NO DRIVE READY 


2030 


004512 


000000 








HALT 




2031 


004514 


105367 


000262 




RE0T2A: 


DECB 


REOTC 


;SEE IF LAST UNIT TO REACH EOT 


2032 


004520 


001410 








BEQ 


RE0T3 


;IF SO: BR 


2033 


004522 


016700 


174150 






nov 


UNP,RO 




2034 


004526 


052760 


100000 


000746 




BIS 


#100000,UN1(RO) 


.-SET EOT FLAG 


2035 


004534 


005726 








TST 


(SP)* 


:RESET STACK POINTER 
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004536 


000167 


177454 






JMP 


START7 


:G0 TO NEXT UNIT 


Cw J f 


004542 


000367 


l/vUc J** 




RE0T3: 


SUAB 


REOTC 




C v JO 


004546 


016700 


l/wwC Jli 






MOV 


REOTC. RO 




C w JT 


004552 


000367 


UwUcc** 






SUAB 


REOTC 






004556 


110067 


wUwC C w 






novB 


RO, REOTC 


: RESTORE EOT UNIT COUNTER 


Cw*ff 1 


004562 


005067 


174110 

1 r "V 1 1 W 






CLR 


UNP 




20A? 


004566 


016700 


174104 

1 ff ^ 1 w"t 






MOV 


UNP.RO 


.•POINT TO FIRST UNIT 




004572 


016067 


WWW r "V w 


17375? 


RE0T4: 


nov 


UN1(R0),UDES 


:LOAD UNIT DESCRIPTION 


c v~ ~ 


004600 


016777 


1 73746 

1 f J f "t w 


173734 




NOV 


UDES.aC2 


.-LOAD CONNAND REGISTER 




004606 


032777 


020000 

WC WW WW 


1 73706 

1 r WW 


REOTS: 


BIT 


#20000, aos 






004614 


001374 








BNE 


RE0T5 


.-AWAIT PIP RESET 


204 7 


004616 


032777 


000002 

WWW W Wb 


173676 




BIT 


#2,aDS 


.-SEE IF HAVE BOT 


2048 


004624 


001013 








BNE 


RE0T6 


.-IF SO: BR 


2049 


004626 


012700 


000001 

WWWWW 1 






NOV 


#1 ,R0 




2050 


004632 


004767 


016342 






JSR 


PCPAPRT 


;PRINT HEADER 


2051 


004636 


012704 


026060 

wc u www 






NOV 


#NSG48,R4 


2052 


004642 


004767 


017254 






JSR 


PC.TTOUT 


.-PRINT BOT ERROR 


2055 


004646 


000000 








HALT 






2054 


004650 


016700 


174022 

1 f ^ Wb w 






MOV 


UNP,RO 




2055 


004654 


042760 


100000 

1 WWWWW 


000746 

W W W 1 ~ w 


RE0T6: 


BIC 


f 100000, UNI (RO) 


.-CLEAR EOT FLAG 


2056 


004662 


062767 


000002 

wwwwwc 


1 74006 

1 • ^WWW 




ADD 


#2, UNP 




2057 


004670 


016700 


174002 

1 • ^ WW t 






NOV 


UNP,RO 


;POINT TO NEXT UNIT 


2058 


004674 


005160 


000746 

WWW r ~ W 






CON 


UNI (RO) 


.-SEE IF LAST UNIT 


2059 


004700 


001404 








BEQ 


RE0T7 


:IF SO: BR 


2060 

WW 


004702 


005160 


000746 

WWW ' » w 






CON 


UNKRO) 




2061 


004706 


000167 


177660 






JNP 


RE0T4 


:D0 NEXT UNIT 


2062 


004712 


005160 


000746 




RE0T7: 


CON 


UNI (RO) 




2063 


004716 


005067 


173754 






CLR 


UNP 


.'CLEAR UNIT POINTER 


2064 


004722 


005067 


173710 






CLR 


TINF 


.•CLEAR TTY INPUT FLAG 


2065 


004726 


005767 


1 74004 






TST 


ASEQF 


.'SEE IF AUTO SEO 


2066 


004732 


001402 








BEQ 


REOTX 


;IF NOT: BR 


2067 


004734 


005726 








TST 


(SP)* 


;RESET STACK POINTER 


2068 


004736 


000207 








RTS 


PC 


:RETURN TO AUTO SEO 


2069 


004740 


004767 


177264 




REOTX: 


JSR 


PC,RANSET 


.-GO RESET RANDON BASE 


2070 

b W f w 


004744 


012767 


Mim 


007436 

W W f ^ ^w 




NOV 


#-1 ,PATS 


.•PRESET PATTERN 


2071 


004752 


005067 


010232 






CLR 


RDFL 


.■CLEAR RANDON FLAG 


2072 


nn47SA 




1 73606 






TST 


SPFLG 


.-SEE IF SINGLE PASS 


2073 


004762 


001405 








BEQ 


REOTXX 


.-IF NOT: BR 


2074 


004764 


012704 


026670 






NOV 


#NSG100,R4 




2075 


004770 


004767 


017126 






JSR 


PC.TTOUT 


.-PRINT END OF PASS 


2076 


004774 


000000 








HALT 


2077 


004776 


000167 


176134 




REOTXX. 


JNP 


STARTE 


.•RESTART AT BLOCK NUNBER ONE 


2078 


005002 


000000 






REOTC: 


0 




;EOT UNIT COUNTER 
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SEQ 0049 



?n7Q 






























:REUINO 


ALL AVAIL TAPES: 




?0ft1 

CvO 1 


















cuoc 












;THIS ROUTINE: ENTERED VIA CONSOLE SWITCH NINE (9) 














;U1LL REWIND ALL AVAILABLE TAPES TO SOT NO HATTER 














• JUFRF 
« ■ncfic 


THEY ARE CURRENTLY 


POSITIONED AND RESUME TE 


708S 












•nil THF 


CURRENTLY SELECTED UNIT. 


cuoo 












• 






7087 


















7088 


00S004 


vjC III 


001 000 






RIT 


#1000 asuR 


SFF IF SHOULD RFUIND 


7089 


00S01? 

WW Jw 1 b 


001001 

vw 1 WW 1 








RNF 


RWNDA ; 


IF SO- BR 


7090 


0OSO14 


000707 








RT^ 


PC ■ 


ELSE EXIT 


7091 


00S016 


016767 

w 1 U f W f 


1 7365<i 


1 73677 


RUN DA ■ 


MOV 

nw V 


UNP UPS 

WV«* /W* M y 


SAVE UNIT POINTER 


2097 


005074 

WV^Wb^ 


005067 


173646 






CLR 

V L n 


UNP ; 


CLEAR POINTER 


2093 


005030 


005067 

WW J vu ■ 


1 73626 






CLR 


FQTREC ■ 

b w 1 nb V f 


CLEAR EDT FLAG 

wkkon bir 1 1 knw 


2094 


005034 

WW^W 


000367 

WWW JW r 


177742 

If f ■ ^ b 








REOTC 

n b w I v 




209S 


005040 


016700 

W 1 W f WW 


177736 






MOV 

n w w 


REOTC RO 




2096 


005044 


000367 

www^u r 


177732 

1 ■ r r ^b 






SWAB 


REOTC 




2097 

b V 7 f 


005050 


110067 

1 I WWW f 


177776 

If f f b W 






MOVB 

nw w D 


RO REOTC 


RESTORE EOT UNIT COUNTER 


2098 

b V 7W 


005054 


016700 

W 1 W f WW 


173616 

1 ■ WW 1 w 




RUNDO : 


MOV 

nw w 


UNP RO 

W** • # W 


POINT TO UNIT ENTRY 

I W A 1 1 W W'« • 1 b ■* 1 i 


2099 

b V 7 7 


005060 

WW ^ WWW 


005160 

WW J 1 WW 


000746 

WWW r ^ W 






COM 

^ wn 


UNI (RO) 

W>« 1 \ «« V r 


SEE IF LAST ENTRY 


2100 

b 1 W 


005064 

WW^ WW^ 


001453 

WW I ^ J J 










RWN02 ; 


IF SO: BR 

A I wW ■ wn 


2101 


005066 

WW ^ WWW 


005160 

WW^ 1 WW 


000746 

WWW • ~ w 






COM 

\f wn 


UNI (RO) 




2102 

b 1 Vb 


005072 

WW ^ W * b 


032760 

WWb f WW 


1 00000 

1 wwwww 


000746 

WWW f ^ w 




BIT 

O A 1 


#100000 UNI (RO) 

W 1 WWWWW ^WTvl^VvW' 


SEE IF ALREADY REWINDING 


2103 


005100 

W W ^ ■ WW 


001035 

WW % V J ^ 








BNE 


RWND1A 


IF SO: BR 


2104 


005102 

WW J 1 Wb 


016067 

W 1 WWW f 


000746 

WWW • ~w 


1 73442 




MOV 


UNI (RO) UDES 

WTvlvVvWr^WWL** 1 


SET UNIT DESCRIPTION 


2105 


005110 

W W ^ 1 1 w 


016777 


173436 


173424 




MOV 


UDES,aC2 


LOAD COMMAND REGISTER 

b Wri W \t W» iFll* 1/ nbWAwlb*^ 


2106 


005116 

WW V 1 V 


017777 

W 1 ■ f f 1 


000011 

WWWW 1 1 


1 73364 




MOV 

nw w 


#ii,aci 


DRIVE CLEAR 

W»*AWb WbW''» 


2107 

b 1 V f 


005124 

WW ^ I b^ 


012777 

W ■ b r 1 r 


000007 

WWWWW ' 


173356 




MOV 


#7,aci 


START REWIND 


2108 

b ■ wa 


005132 

W W ^ ■ ^b 


032777 

W^b f r r 


000200 

WWWb WW 


173362 

1 ' WWWb 


RUND1 : 


BIT 


#200 iDS 

W b W W f w *> 




2109 

b I V 7 


005140 

WW ^ 1 ^ W 


001015 

WW 1 W 1 ^ 








BNE 


RWNDIA 


IF DRY: BR 


2110 


005142 

WW^ > ^b 


005367 

WW ^ WW r 


173522 

1 * WWbb 






DFC 

l/b ^ 


STAL 




2111 

bill 


005146 

w w ^ ■ ^ w 


001371 

WW ■ W f ■ 








BNE 


RWND1 


AWAIT DRY 


21 12 

b ■ ■ b 


005150 

WW ^ 1 ^ w 


012767 

W 1 b f W f 


024755 

Wb~ • w ^ 


173476 




MOV 


#MSG6.EMADDR 




2113 

b ■ I W 


0051 S6 


004767 


016016 






JSR 


PC.PAPRT 


PRINT HEADER 


2114 

b I ■ ^ 


005162 


012704 


026410 

WbW^ ■ w 






MOV 

nw w 


#MS670.R4 




2115 

b t 1 ^ 


005166 

W V ^ 1 WW 


004767 

w w^ f w r 


016730 

W 1 W * WW 






JSR 


PC-TTOUT 

W # ■ ■ WW ■ 


PRINT NO DRIVE READY 


2116 

b ■ • V 


0051 72 


000000 

WW www w 








HALT 






2117 

b ■ ■ ' 


005174 


042760 


1 00000 

1 wwwww 


000746 

WWW 1 ^ w 


RUND1A- 


8IC 


#100000.UN1 (RO) . 

" 1 W W W WW 0 W*^ < ^ f» W r 


CLtAR EOT FLAG 


2118 


005202 

WW^b Wb 


062767 

WWb « W f 


000002 

WWWW Wb 


1 73466 

1 • w^ww 




ADD 


#2, UNP 


BUMP POINTER 


2119 

b < > 7 


005210 

WW^b ■ w 


000167 

WWW 1 W r 


1 77640 






JMP 


RWNDO 

UNI (RO) 


DO NEXT UNIT 


2120 

b t b W 


005214 


005160 

WW^ I WW 


000746 

WWW f ~ w 




RUND2: 


COM 




2121 


005220 


005067 

W W ^ WW ' 


173452 






CLR 

W b *1 


UNP 


CLEAR POINTER 


2122 


005224 

WW ^b b^ 


016700 

W 1 W r WW 


173446 




RUND3: 


MOV 


UNP.RO 


POINT TO UNIT tNTRY 


2123 

b > b ^ 


005230 

WV^b i^W 


005160 

V W ^ I WW 


000746 

WWW » ~ w 






COM 


UNKRO) 


SEE IF LAST ENTRY: 


2124 

b • b ~ 


005234 


001443 








BEQ 


RWNOX 


IF SO: BR 


2125 

b ■ b ^ 


005236 


005160 

W V ^ I WW 


000746 






COM 


UNKRO) 




2126 


005242 

WW ^b^b 


016067 

w i www • 


000746 

WWW f ^ w 


173302 

1 f WWWb 




MOV 


UNKRO), UDES 


SET UNIT DESCRIPTION 


2127 


005250 


016777 


173276 


1 73264 




MOV 


U0ES,8C2 


LOAD COMMAND REGISTER 


2128 


005256 


032777 


020000 


173236 


RUND4: 


BIT 


#20000, aos 




2129 


005264 


001374 








BNE 


RWND4 


AWAIT PIP RESET 


2130 


005266 


032777 


000002 


173226 




BIT 


#2,aDS 


SEE IF HAVE BOT 


2131 


005274 


001410 








BEQ 


RWND6 


IF NOT: BR 


2132 


005276 


062767 


000002 


173372 


RUND5: 


ADD 


#2, UNP 


BUMP POINTER 


2133 


005304 


012777 


000011 


173176 




MOV 


#ii.aci 


DRIVE CLEAR 


2134 


005312 


000167 


177706 






JMP 


RWND3 


DO NEXT UNIT 
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SEO 0050 



2135 
2136 
2137 
2138 
2139 
2U0 
2U1 
2U2 
2U5 
2U4 
2U5 
2U6 
2U7 



005316 
005322 
005326 
005332 
005336 
005340 
005344 
005350 
005356 
005362 
005370 
005376 



012700 
004767 
012704 
004767 
000000 
000167 
005160 
016767 
016700 
016067 
016777 
000207 



000001 




RUND6: 




#1 ,R0 




015652 






JSR 


PC PAPRT 


-PRINT HFADFR 


026060 






nov 


fNSG48,R4 


016564 






JSR 


PCTTOUT 


.-PRINT NO BOT 








HALT 






177732 






..if 


RUND5 


;D0 NEXT UNIT 


000746 




RUNDX : 


con 


UMKRO' 




173342 


173320 




nov 


UPS.UNP 


.■RESTORE UNIT POINTER 


173314 






«ov 


UNP.RO 


000746 


173162 




NOV 


UN1 (RO}.UDES 


.•RESET UNIT DESCRIPTION 


173156 


173144 




NOV 


UDES,aC2 








RTS 


PC 


.•RETURN TO TEST 
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2U8 

2U9 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 

2161 

2162 

2163 

216A 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 



HACYII 30(1046) 13-JUN-78 



4 

13:40 



PAGE 51 



SEO 0051 



************** ******«tttt**ttt**t********ttttt****** 

WRITE ROUTINE: 

THIS ROUTINE IS USED TO WRITE ONTO TAPE THE BLOCK 

OF DATA DESCRIBED BY THE OPERATOR AND SET UP 

IN THE SEQUENCE FORMATTER. THE TAPE UNIT TO BE USED 

HAS BEEN ASSIGNED BY THE SEQUENCE FORMATTER AND 

ITS PARAMETERS SET IN A UNIT DESCRIPTION WORD. 

AS EACH RECORD OF THE BLOCK IS WRITTEN, IT IS CHECKED 

FOR STATUS ERRORS, WORD COUNT ZERO, AND CORRECT CURRENT 

MEMORY ADDRESS. IF THE WRITE OPERATION RESULTS IN 

ANY ERROR CONDITION, A WRITE RETRY OF THAT OPERATION 

MAY BE DONE BY SETTING SWITCH FOUR (4) TO A ONE (1). 

THE RETRY CONSISTS OF A BACKSPACE, ERASE FORWARD, AND 

REWRITE OF THE RECORD. (SEE WRITE RETRY SUBROUTINE) 

AFTER ALL DATA RECORDS IN THE BLOCK HAVE BEEN 

WRITTEN, THE WRITE ROUTINE WILL EXECUTE A WRITE 

TAPE MARK COMMAND IF THE TTY RESPONSE TM^I WAS 

MADE AT INITIAL START. THE TM IS COUNTED AS TOTAL 

DATA RECORDS PLUS ONE (IE: IF 100 DATA RECORDS: TM=RECORD 101) 

IF THE WRITE OPERATION (DATA OR TM) CAUSES THE SELECTED SLAVE 

TO REACH END Of TAPE (EOT) AND THERE IS TO BE NO READING DONE, 

(SW2 AND SW3 SET TO A 1 ) THEN THE SLAVE IS REWOUND AND 

FLAGGED AS UNAVAILABLE FOR TESTING UNTIL ALL SLAVES HAVE 

REACHED EOT AND BEEN REWOUND AT WHICH TIME TESTING IS 

RESUMED ON ALL AVAILABLE SLAVES. 

WRITE RETRY MAY BE ALLOWED VIA CONSOLE SWITCH FOUR (4). 
ERROR CHECKING MAY BE DISALLOWED VIA CONSOLE SWITCH 
TWELVE (12). 

WRITING TO TAPE MAY BE DISALLOWED VIA CONSOLE SWITCH 













;ZERO 


(0). 




005400 


005067 


173256 




WRITE: 


CLR 


EOTREC 


CLEAR EOT FLAG 


005404 


032777 


000001 


173174 




BIT 


#1 ,asuR 


SEE IF SHOULD WRITE 


005412 


001402 








BEQ 


WRTE 




005414 


000167 


000562 






J MP 


WEX 


IF NOT: BR 


005420 


016700 


173130 




WRTE: 


MOV 


RCNT,RO 


RO=RECORD COUNT 


005424 


012767 


024750 


173222 


WO: 


MOV 


fMSG5,EMADDR 


SET ERROR MSG ADDRESS 


005432 


016777 


173120 


173056 




MOV 


FHCNT.aFC 


LOAD CHAR COUNT 


005440 


012777 


027426 


173046 




MOV 


#WDATA,a6A 


■SET DATA ADDR 


005446 


112767 


000060 


173220 




MCVB 


f60,MTC1 


SET WRITE OP COMMAND 


005454 


012767 


005466 


173202 




MOV 


#W1,RTRN 


SET RETURN ADDRESS 


005462 


000167 


013734 






JMP 


TAPG 


GO EXECUTE COMMAND 


005466 


032777 


002000 


173026 


W1: 


BIT 


#2000, iDS 


SEE IF EOT 


005474 


001405 








BEQ 


W2 


IF NOT AT EOT: BR 


005476 


010067 


17316C 






MOV 


RO, EOTREC 


-SAVE EOT RECORD NUMBER 


005502 


052767 


100000 


173152 




BIS 


#100000, EOTREC 


-SET EOT FLAG 


005510 


032777 


010000 


173070 


W2: 


BIT 


#ioooo,aswR 


-SEE IF SHOULD CHECK ERRORS 


005516 


001002 








BNE 


W3 


-IF NOT: BR 


005520 


004767 


011770 






JSR 


PCERCHK 


GO CHECK ERRORS 


005524 


016767 


173044 


173136 


W3: 


MOV 


WSTAL,STAL 


SET DELAY 


005532 


004767 


004502 






JSR 


PC, STALL 


;DELAY 


005536 


005767 


173152 






TST 


RTYFL 


•SEE IF RETRY TIME 


005542 


001401 








BEQ 


W3A 


-IF NOT: BR 


005544 


000207 








RTS 


PC 


;ELSE RETURN 
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r 7TI II A 


.P11 07-JUN-78 


1 H . Ht 














005546 


005767 


17X1XA 
1 r J 1 jO 




UXA • 
w JA • 


T^T 


SERFL ;SEE IF WRITE ERROR 


ccVj 


005552 


001452 








DC « 


US 

■J • 


I F MOT • RR 

A r nu 1 • Dn 


ccUO 


005554 


016704 


1 7X1 1 A 

1 r J 1 10 






MOU 

nUV 






ccvir 


005560 


005264 


ftfti 070 






I Mr 


UTFRI ( R£ ) 


RUMP URITF FRROR 

DUnr wn 1 ic cnnwn 


ccUO 


005564 


005067 


1 711 J(\ 
1 1 3 1 Cv 






ri R 


SERFL 


CLEAR STATUS ERROR FLAG 


ccVlT 


005570 


032777 


000050 


17X010 

1 f Jv 1 U 




RIT 
D 1 1 


#20,asuR : 


SEE IF RETRY 


CC 1 U 


005576 


001440 








RFO 


W5 : 


IF NOT: BR 


551 1 


005600 


016703 


1 7X1 50 
1 1 3 1 cU 






MOU 


ERSAV.R3 




551 5 
CC 1 c 


005604 


042703 


1 05700 
1 Uc ' <J\l 






R I r 


«102700,R3 ; 


MASK UNRECOVERABLE ERROR 


CC 1 J 


005610 


001411 








DC W 


U4 ; 


IF SO: BR 


cell 


005612 


004767 


01 SXA7 






J On 


PC.PAPRT 


PRINT HEADER 


551 «i 

CC 1 J 


005616 


012704 


05ASA7 

UCO JO 1 






MOW 


fP1SG78,R4 




551 A 
CC 1 0 


005622 


004767 


01A57£ 

1/ i uC f "* 






J on 


PCTTOUT : PRINT NON-RE TRYABLE ERROR TAG 


551 7 

CC 1 ' 


005626 


004767 


00X^0^ 






«/ on 


PCNRTP ;PRINT ER FOR NON-RETRYABLE 


57111 


005632 


000422 








RR 


U5 




5910 
CC It 


005634 


016704 


17X0XA 

1 r jU Jw 








UNP«R4 




5550 
cccv 


005640 


005264 


0010^0 
vv 1 U JU 






TNT 


RTY1(R4) 


BUNP RETRY CNTR 


5?51 

CCC 1 


005644 


032777 


007000 

vvC vvv 


1777X4 




RI T 

D i 1 


#2000, asuR 


SEE IF PRINT ERRORS 


???? 

cCcc 


005652 


001004 








RNF 

one 


U4A 


IF NOT: BR 


CCC J 


005654 


012704 


076X0X 

UCO Jv J 






MOV 


fNSG64,R4 




CCCH 


005660 


004767 








JSR 


PC.TTOUT 


PRINT ORIGINAL ERROR TAG 


CCC J 


005664 


005067 


1 7X014 




U4A* 


CL R 


RTCNT 


CLEAR RETRY NUMBER 


ccco 


005670 


005067 


17X006 






vcn 


RPCNT 


CLEAR REPEAT COUNTER 


CCC ' 


005674 


004767 


000X46 

Vvv J"* W 






JSR 

w w n 


PCURTY 


-GO RETRY URITE ERROR 


57P8 
ccco 


005700 


005067 


17X010 




y5' 


CLR 

i> cn 


RTYFL 


; CLEAR RETRY COUNTER 


5550 

CCC 7 


005704 


005767 


1 > C f jc 






TST 


EOTREC 


■SEE IF EOT FOUND 


55Xn 

CC Jw 


005710 


100402 








RMf 

on 1 


U6 


■IF SO: BR 


55X1 
cC J 1 


005712 


005300 








OFT 


RO 


;SEE IF DONE ALL 


55X? 

CCjC 


005714 


001243 








RNF 

one 


UO 


■IF NOT: BR 


5?XX 
CCjj 


005716 


005767 






■w • 


TST 


TKEX 


;SEE IF TM 


75 XA 
Cr jt 


005722 


001527 








RFO 

DC V 


UEX 


;1F NOT: BR 


77^S 

CCJJ 


005724 


005267 


177750 






INC 


THFLG 


;SET TH FLAG 


CC jD 


005730 


012767 




177716 




MOV 


fnSG54,ENADDR 


; POINT TO TH ERROR MSG 


CC J ' 


005736 


012767 


V wVVCu 


1 777X0 

1 f C ■ Jv 




MOV 


«26,nTC1 


;SET TH OP CODE 


CC JO 


005744 


012777 


000000 

www 


172544 




MOV 


fO,aFC 


;LOAO FRAME COUNTER 


CC J7 


005752 


012777 


077476 

vC f "fCw 


1775X4 

1 ' C J J"t 




NOV 


fUOATA.aBA 


;LOAD BUS ADDRESS 


75^n 

CC1U 


005760 


012767 


00577? 

vv J r f C 


1 77676 




MOV 


#WTnO,RTRN 


;SAVE RETURN ADDRESS 


77A1 

CCI 1 


005766 


000167 


01 X&XO 

w 1 J"f Jv 






JMP 


TAPG 


;URITE TH 


774? 

CC"tC 


005772 


032777 


010000 


1 f COW 


UTNO* 


BIT 

Oil 


#10000,aSUR 


;SEE IF SHOULD CHECK ERRORS 


7743 

CC*t J 


006000 


001100 








RNF 
one 


UEX 




77AA 


006002 


032777 


000004 

WWW"! 


17551? 

1 r C J 1 C 




RIT 

DA 1 


#4,aDS 


;SEE IF TM STATUS 


774S 

CC1 J 


006010 


001011 








RNF 


UTHI 


;IF SO: BR 


ccto 


006012 


012767 


vC r few 


01551? 

V 1 J J 1 C 




MOV 


fU0ATA,CADER 


;SET EXPT BUS ADDRESS 


77A7 

CC1 1 


006020 


012767 


ooonoi 

vvvvv 1 


01551? 

V 1 J J 1 C 




MOV 

flw V 


#1 ,DRVER 


; INDICATE ERROR 


77&8 


006026 


004767 


vie V 






JSR 


PCERPT 


; PRINT TM ERROR 


77&0 

CCtT 


006032 


000404 








RR 


UTn2 




7750 

CC Jv 


006034 


012703 


07742/^ 




yTNl ■ 


MOV 


fUDATA,R3 


;SET EXPT ADDRESS 


CC J < 


006040 


004767 


011546 






JSR 


PC,ER2 


;G0 CHECK FOR OTHER ERRORS 


775? 
£c jc 


006044 


005767 


1 77644 




yTN2* 


TST 

1 w f 


RTYFL 


;SEE IF RETRY 


CC J J 


006050 


001401 








BEO 

DC W 


UTn3 


' I F NOT : BR 


2254 


006052 


000207 








RTS 


PC 


;ELSE RETURN TO RETRY ROUTINE 


2255 


006054 


005767 


172630 




WTn3: 


TST 


SERFL 


;SEE IF URITE ERROR 


2256 


006060 


001450 








BEQ 


UEX 


;IF NOT: BR 


2257 


006062 


016704 


172610 






nov 


UNP,R4 




2258 


006066 


005264 


001070 






INC 


UTERI (R4) 


;BUHP URITE ERROR 


2259 


006072 


032777 


000020 


172506 




BIT 


«20.aSUR 


;SEE IF SHOULD RETRY 













8 


5 


Tfl02/TIKS DATA 


RELIABILITY PRGGRAH HACYll 


Xf\l 1 t\LC\ 
3M \ IU<i6> 


1 1- IIIU.7tt 
1 J~JUPi f O 


13:^0 PAuc )3 


CZTUIA.P11 07-JUN-78 


14:49 






CCA AAC X 

SEQ 0033 


ccbQ 


006 100 


001440 




BCO 
DCW 


WC A 


; X ( MU 1 : OR 


££01 


AAX i A*) 

0061 Oc 


Ai ^7AY 
016f 03 


172616 


nUV 








AA^i A^ 

006100 


A/. 07A» 

0*icf 03 


102700 


BIT 
OIL 


#in97nn ox 

' 1 Uc r UU ,f\3 


■ ■ACV IliJDCrnuCDADl C CDDAD 


CCOJ 


0061 1 c 


001 *l1 1 








•It cn • BD 
, IT dU • On 


CcO<l 


0061 1 •» 


00*1 f6f 


015063 


1 CD 


DC DADDT 

rL , rmrn \ 


•DDtUT UCAACD 




AAA1 9n 
0061 cU 


U1 Cf U*l 


026567 


nuv 






ccOO 


UUO 1 c*t 


nOA7A7 
UU*l » Of 


015772 


ICQ 
JAR 


DP TTnilT 
r L , 1 1 UU I 


• DDIIIT IIUDCTDVADI C TAft 
.rNlNI UNKtlKTAOLC 1*1? 


ccOr 


UvO 1 3U 


on^7A7 

UU«I (Or 


003102 




DP IIDTP 


• DBIIIT CD rnD ftlAkl^DC TDV ABI C 


ccOO 


AA^LI Xi. 
UUO 1 3*> 


AAAA53 
UUU*»£C 




BB 
DK 


HE A 




CC07 


UUO 1 jO 


UU3UO> 


172540 UTn4: 


ri D 


DBrilT 


.riCAD BFBCAT rklTB 
, LLCnn ncrCAl LNIn 


CCfv 


UUO 1 


ni A7n^ 
u 1 o r \m 


172530 


nuv 


HMD D^ 






UvO 1 HO 


UU JCOS 


001050 




DTVl iOL'\ 
n 1 T 1 \ nH } 


•BIIHD DPTDV PktTD 
, DUnr KCInT LN 1 n 


CC 1 C 


nnAi ^3 

UUO 1 3c 


uu juo ' 


172526 


n B 


K 1 LN 1 


•n FAD DFTDV TUTD 
<LL.CMn KCInT LN 1 K 


3?7T 
CC r J 


AAX1 CA 
UUO 1 30 


nX3777 


002000 172422 


BIT 
Ol 1 


>CUUU > ■)>n 


• CFF IF DDIklT FfiSnOC 
« 9CC IT rnlNI CKnUnd 


CC 1 H 


UUO 1 o<t 


UU 1 uut 




BMP 


H 1 nsrt 


• I f linT • BD 
( 1 r NU 1 • On 


CCf J 


OAAI AA 
UUO 1 OO 


U 1 c f U*i 


026303 


nuv 


•naoot , Ks 




CC f O 


AAXi 75 
UUO 1 f c 


nn^7A7 

UUS f O f 


015724 


J dn 


Dr TTflllT 
r L • 1 1 UU 1 


•PDIUT nDIRIklAI CDDnO 1 AH 
.rtlNI UniUINAL CnnUn 1 nu 


5377 
ccf r 


nAA17A 
UUO 1 r 0 


nn£7A7 

UUS r or 


000044 UTn4A: 


ICB 


or UBTV 
rL f WK 1 T 


• en nt\ DCTDV 
, UU PU KC 1 KT 


937ft 

CC ' O 


UUOcUC 


AACAA7 

UU9UOr 


172506 UEX: 




BTvn 

n 1 Tr L 


• riFAD DFTDV FI AC 
,LLCnn KCInT rLAU 


3370 

CC f T 


nAA3nA 

UUOcUO 


AACAX7 
UU9U0> 


172466 


ri B 


1 nr Lu 


• ri FAD TADF HADIT FI AC 
,LLCaK I Arc nnK^ rLAu 


33ftn 

CCOw 


nnA3i 3 

UUOC 1 c 


nns7A7 

UU3 r 0> 


172444 


T^T 


CU 1 nCL 


•CFF IF Fnt 
> 9CC i r CU 1 


2281 


006216 


100401 




BM I 




•IF cn • BD 

• 1 r 9U • DK 


2282 


006220 


000207 




BTC 


DP 

rL 


■ FI CF EMIT 
> CL9C CX i 1 


2283 


006222 


017703 


172360 URU: 


nuv 


BCUO BT 




2284 


006226 


042703 


177763 


Bir 

OIL 


iri777AT ax 

miff fOj,Kj 




2285 


006232 


022703 


000014 


CUP 


f14,R3 


.SEE IF WRITE ONLY 


2286 


006236 


001002 




8NE 


URWX 


:IF NOT: BR 


2287 


006240 


000167 


176016 


JHP 


REOT 


:ELSE REWIND 


2288 


006244 


000207 


URWX: 


RTS 


PC 


.-EXIT 



TH02/TU45 DATA 


RELIABILITY PROGRAM 


HACT11 


30(1046) 


13-JUN-78 


13:40 PAGE 54 


CZTUIA.P11 


)7-JUN-78 


14 :49 










SEQ 0054 


2289 


















2290 












.-WRITE 


ERROR RETRY 




2291 


















2292 


















2293 


















2294 


006246 


012767 


A A A A A 4 

000001 


4 ^1 / / A 

172440 


WRTY: 


nov 


II.RTYFL 


.-SET RETRY FLAG 


2295 


006254 


004767 


A A A / AZ 

000406 




URTYO: 


JSR 


PC.URTSB 


:G0 SPACE REVERSE FOR REPEAT 


2296 


006260 


005767 


172414 






TST 


THFLG 


;SEE IF TAPE nARK TIHE 


2297 


006264 


AAi AAT 

001003 








BNE 


URTYTH 


;IF SO: BR 


2298 


006266 


AA/ ^d. T 

004767 


i 77i VI 

1 77132 






JSR 


pc.yo 


.REWRITE RECORD 


2299 


006272 


AAA/ A') 

000402 








BR 


URTYR 


:G0 ON 


2300 


006274 


AAy 7x 7 

004 ft f 


1 77/ 7 A 

1 r 7A30 




URTYTH: 


JSR 


PC.WTH 


;G0 WRITE TAPE nARK AGAIN 


2301 


006300 


005/67 


i 71/ A/ 

172h0h 




yRTYR: 


TST 


SERFL 


.'REWRITE GOOD 


2302 


006304 


AAI A07 

001027 








BNE 


WRTY2 


:IF NOT: BR 


2303 


006306 


AAC 1X7 


1 7177A 

1 72370 






INC 


RPCNT 


;BUnP REPEAT COUNTER 


2304 


006312 


022767 


AAAAA7 

0000G3 


i 7^ 7^ 1 

172362 




CHP 


#3,RPCNT 


.SEE IF THREE GOOD REPEATS 


2305 


006320 


AAi TCC 








BNE 


URTYO 


;IF NOT, REPEAT 


2306 


006322 


AT 1777 

052777 


AA^AAil 

00200U 


172256 




BIT 


«2000,aSUR 


.-SEE IF PRINT 


2307 


006330 


AAi Ai / 
001 01 H 








BNE 


URTY1 


:IF NOT: BR 


2308 


006332 


Ai 17A/ 

012f Oh 


A^X77/ 
026f f H 






nov 


fnSG105.R4 


2309 


006336 


AA/ 7Z.7 

004 76 7 


Ai crzA 
01 3360 






JSR 


PC.TTOUT 


.-PRINT RECOVERED nESSAGE 


2310 


006342 


Ai i7Ay 

012704 


026325 






HOV 


«nSG65,R4 




2311 


006346 


OOh fbr 


Ai CCCA 

01 75>0 






JSR 


PC.TTOUT 


;PRINT RETRY TAG 


2312 


006352 


AI ^7AT 

01 6f 03 


i 7^70X 

172326 






nov 


RTCNT.R3 


2313 


006356 


AA/ 

00*f 6f 


Ai C71 O 

01 5f 1 2 






JSR 


PCOCTP 


.-PRINT RETRY NUHBER 


2314 


006362 


AAA^A7 






URTY1: 


RTS 


PC 


.-RESUnE TESTING 


2315 


006364 


AI Z.7AT 

01 6 r 03 


1 f c33h 




WRTy2: 


nov 


ERSAV,R3 


;GET ER 


2316 


006370 


A/ 37A» 


i A77AA 

lOefOO 






BIC 


#102700,R3 


.-HASK RECOVERABLE BITS 


2317 


006374 


AAI / 1 / 








BEQ 


URTY2A 


.-IF RECOVERABLE: BR 


2318 


006376 


AAA 7X7 


Ai / C 7X 

OlHDf 6 






JSR 


PC.PAPRT 


.•PRINT HEADER 


2319 


006402 


A^ ^7A/ 


A^XCX7 

0£636f 






nov 


fnSG78,R4 




2320 


006406 


AA/ 7Z.7 


Ai cc i A 

01 3510 






JSR 


PC.TTOUT 


: PRINT NON-RECOVERABLE HSG 


2321 


006412 


AAZ 7X7 
OOh f 6f 


AA^XOA 

0026cO 






JSR 


PC.NRTP 


.-PRINT ER 


2322 


006416 


AI 77X7 
Oldf 6f 


AAAAAi 
000001 


i 7777/ 

1 f c22* 




nov 


#1,TEnP3 


.-SET FLAG 


2323 


006424 


AAA/ 1 A 








BR 


URTY2B 




2324 


006426 


A¥^777 


AA^ AAA 
002000 


1 7T i C 7 

1 72152 


URTY2A: 


BIT 


#2000. asuR 


.SEE IF PRINT 


2325 


006434 


AAi AT^ 

001 03c 








BNE 


WRTY3 


.-IF NOT: BR 


2326 


006436 


AI 77AZ 


A077VA 

02fc30 






nov 


«nSG110,R4 


2327 


006442 


AAX7X7 
00*f Of 


Ai C/ C/ 






JSR 


PC.TTOUT 


.-PRINT BAD TAPE SUSPECT 


2328 


006446 


AI ^7A/ 

Olcf Oh 


026323 




URTY2B: 


nov 


fnS665.R4 


2329 


006452 


AA/ 7X7 
00* f 6f 


Ai cz/ y 






JSR 


PC.TTOUT 


.•PRINT RETRY TAG 


2330 


006456 


AI X7AV 

01 6 f 03 


1 Tcccc 






nov 


RTCNT.R3 


2331 


006462 


AAZ 7X7 
00* ftl 


Ai CXAX 

01 3606 






JSR 


PCOCTP 


.-PRINT RETRY NUnBER 


2332 


006466 


Ai ^7A/ 

Olcf 0* 


027252 






nov 


fnS6l11.R4 


2333 


006472 


A A/ 7X7 

004767 


Ai C/ 7/ 

01 5*2* 






JSR 


PC.TTOUT 


.PRINT REPEAT TAG 


2334 


006476 


A1X7AV 

016r03 


1 777AA 

1 fccw 






nov 


RPCNT. R3 


2335 


006502 


AAX7X7 
00*f Of 


AI CCXX 

01 550c 






JSR 


PCOCTP 


.-PRINT REPEAT NUHBER 


2336 


006506 


AAC 7X7 
005 fOf 


1 771 IX 

1 f £130 






TST 


TEnP3 


;SEE IF DID NON-RECOVERABLE 


2337 


006512 


AAI XAT 








BEQ 


URTY3 


:IF NOT: BR 


2338 


006514 


AACAX7 
U0?06f 


i 77i VA 
1 f ^130 






CLR 


TEHP3 


.-CLEAR FLAG 


2339 


006520 


000207 








RTS 


PC 


.EXIT 


2340 


006522 


005767 


172156 




URTY3: 


TST 


RTCNT 


.-SEE IF FIRST RETRY 


2341 


006526 


AAi AA/ 

001004 








BNE 


URTY3A 


.-IF NOT: BR 


2342 


006530 


016704 


172142 






nov 


UNP.R4 




2343 


006534 


005364 


001070 






DEC 


UTERI (R4) 


.-DECREHENT WRITE ERROR CNTR 


2344 


006540 


016704 


172132 




URTY3A: 


nov 


UNP.R4 


:GET UNIT NUHBER 
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2345 


006544 


016467 


A A 4 A9 A 

001030 


4 7^ 4 Z A 

1 72160 




HOV 


BTADDR(R4),BTPT ; 


GET ADDRESS OF UNIT BAD TAPE CNTR 


2346 


006552 


A 4 ^^A i 

017704 


172154 






nov 


aBTPT.R4 ;GET COUNTER 


2347 


006556 


AA K^^i 

005724 








T ff* T 

TST 


m)* ;SET POINTER OFFSET 


2348 


006560 


A4 A / 

010477 


4 ^^4 / Z 

172146 






HOV 


R4,8BTPT 




2549 


A A^ C ^ / 

006564 


A4 Z 7AT 

016703 


172142 






HOv 


BTPT,R3 




2350 


AA^ f TtA 

006570 


A^ AT A/ 

060304 








AAA 

ADD 


R3,R4 ; 


SET ABSOLUTE POINTER 


2351 


AA< C 7^ 

006572 


016714 


172060 






M At/ 

BOV 


BLCNTR,(R4) ; 


SET BLOCK NUMBER 


2352 


AA^ C 7^ 

006576 


A^ ^^A/ 

062704 


AAAAi A 

000040 






AAA 

ADD 


#40, R4 ; 


ADD RCNT OFFSET 


Z353 


AA^^ At 

006602 


A'f Z 7i / 








M Ati 

BOV 


RCNT, (R4) 




Z35h 


AA^^A^ 

006606 


1 Z AA4 / 

160014 








C 1 ID 

SUd 


R0,(R4) 


SET RECORD NUMBER 


2355 


006610 


AAC '^1 y 

005214 








INC 


(R4) 


■krj'MJ^I^ ailiMnPf^ 

CORRECT RECORD NUMBER 


2356 


006612 


022777 


A AAA/ A 

000040 


1 721 12 




CUD 

CnP 


#40,8BTPT 


SEE IF TOO MANY BAD SPOTS 


235 f 


AAXZ. ^A 

006620 


AA4 AA*) 

001 002 








BNE 


WRTV4 


t F klAV ^ RA 

I r NO T bR 


2358 


AA^^ I*) 

006622 


AAA 4 ^7 

000167 


000234 






1Mb 

JnP 


BTOV 


ELSE 60 TO BAD TAPE OVERFLOy 


2359 


006626 


AAC 

005267 


4 77AC 7 

1 72052 




yRTT4 : 


INC 


RTCNT 


BUMP RETRY COUNTER 


2360 


AAA^IO 

006632 


AH7Z7 

022767 


AAAAA/ 

000004 


1 7'5Ay y 
1 r2044 




CnP 


#4.RTCNT 


SEE IF DONE 4 RETRIES 


2361 


AA^Z./ A 

006040 


AA1 y 1 A 

001410 








DC n 
DCWl 


WRTY5 


IF SO: BR 


2362 


006642 


A1 Z7Ay 

016/04 


1 r2030 






■Ati 

fluv 


UNP.R4 




^3o3 


00604 o 


AAC 'iL.L 

00526^ 


AA1 AC A 
001050 






INC 


RTY1(R4) 


BUMP RETRY COUNTER 


2364 


006652 


AAC 0Z.7 

00526r 


1 77ACX 

1 72056 






INC 


ERTFL 


SET ERASE FLAG 


2365 


AA^X.CX 

006656 


AAA4 ^7 
00016f 


< 77177 

1 f75fc 






Jnr 


yRTYO 


-DO NEXT RETRY 


2366 


006662 


AAA1 ^7 

0001 6 r 


AAA/ IX 

000430 




LIB T V C • 

yR Tt5 : 


IMD 

JnP 


BTUR 


;ELSE GO TO BAD TAPE UNRECOVERABLE 


236/ 


















2360 












■ LIB f TC 


RETRY BACKSPACE-ERASE SUBROUTINE********** 


2369 


















23r 0 


006660 


AACAZ7 

00506 r 


1 77A1 X 

1 r2016 




1 l&T CO ■ 


CLR 


SERFL 


; CLEAR FLAG 


23f 1 


AAX.^71 

0066 rc 


A1 Z.7^7 

016/6/ 


1 71 7AA 

1 r 1 rOO 


171 77n 

1 r 1 r f 0 






TSTAL.STAL 




cifi 


AA^7AA 

006 r 00 


l\t\i 7^7 

004 /6/ 


AAiiiy 
003334 








PC, STALL 


;D0 TURN AROUND DELAY 


23r3 


AAX7A/ 

006704 


A1 77it7 
012f 6/ 


A7X11X 

020336 


1 71 7Z 7 

1 r 1 r42 




nov 


fnSG66,EHA0DR 


;SET ERROR CODE 




AAA71 9 

006rl2 


A1 "iTtl 


1 77777 


1 71 C7X 

1 rl5rO 




nov 


#-1,aFC 


■SET TO BACKSPACE 1 RECORD 


23r5 


AAX.70n 

006 r 20 


Al 0777 

012f f ' 


A11Z 1/ 

033434 


1 71 CXX 

1 ft 500 




nov 


fRDATA.BBA 


■SET BA 


23f 6 


000^26 


AA/ 7Z.7 

004 r6r 


AAT71X 

003230 






1 C D 

JdR 


PC.BKRT 


;G0 BACKSPACE 


23r f 


AAA719 

006 r 32 


AAC7iL7 
005 f6f 


1 71 7C7 

1 r 1 r 52 






T C T 


SERFL 


;SEE IF ERROR 


23rB 


AAiL71iL 

000 r 30 


AA1 y Ax 
001 406 








DC A 


URTSB1 


;IF NOT: BR 


1170 


006 /^*»0 


A1 77^7 

01 2f Or 


AAAAA 7 

000002 


1 71 7XA 

1 r 1 rOO 


UD T COA • 


nov 


f2,BTFLG 


;SET FLAG 


710A 

£3B0 


AAA7ZiL 

006f 40 


022026 








cnp 


(SP)*.(SP)* 


; RESET STACK 


e3ol 


AAiL7CA 

000 r 50 


AAA1 A7 

0001 6 r 


1 7C1AX 

1 r 5306 






IHD 

jnp 


REOT 


;G0 REWIND AND REMOVE FROM TESTING 


230c 


AAA7CZ 

006 r 54 


AAC7iL7 

005r6r 


1 71 7C/ 

1 r 1 r 54 




L1DTCD1 • 

wrtsdI : 


TC T 

T5T 


ERTFL 


;SEE IF SHOULD ERASE 


C303 


AA/.7AA 

006 r 60 


AA1 AA1 

001001 








D^C 


URTSB2 


;IF SO: BR 


2304 


(;06r62 


AAA7A7 

00020 r 








DTC 


PC 


;RETURN 


2305 


AAA7iLZ 

006 r64 


AACAX.7 

00506 r 


171 7y. L 

1 r 1 r44 




L1DTC07 • 

URTSd2 : 


n D 
CLR 


ERTFL 


;CLEAR ERASE FLAG 


2^06 


AAiL77A 

006r rO 


AACAX7 

00506 r 


171 7 AX 

1 r 1 r06 






CLR 


RPCNT 


; CLEAR REPEAT CNTR 


01B7 


AAiL77/ 

006 f 


AACAX7 

00500 r 


1 71 71 A 

1 r 1 rIO 






CLR 


SERFL 


; CLEAR FLAG 


2300 


AA7AAA 

00 r 000 


A1 77X7 

012rOr 


A7X1C1 

026351 


1 71 XZX 

1 rl040 




nov 


#nSG67.EnA0DR 


;SET ERROR CODE 


9 ISO 

c309 


AA7AAA 

007006 


AACA77 

0050 r r 


1 71 CAy 

1 rl 504 






CLR 


aFC 


; CLEAR FRAME COUNT 




AA7Ai 9 

007012 


Ai 77X7 
012f 6f 


AAAA7Z 

000024 


1 71 XC/ 

1 r 1654 




nov 


#24,nTC1 


;SET ERASE OP-CODE 


2391 


AA7A0A 

00r020 


AI 7777 

012r r f 


A77Z 7X 

02 r42c 


1 71 / XX 

1 rl466 




BOV 


fUDATA.aBA 


;SET BA 




nA7A9A 

U0rU26 


A1 77X7 

012rOf 


AA7A/A 

00 r 0*0 


1 71 X1A 

1 r 1630 




nov 


#WRTSB3,RTRN 


■SET RETURN ADDRESS 


^lOI 




AAA1 X7 

0001 Or 


ni 71X7 

01 2362 






Jnr 


TAPG 


;G0 ERASE 


2394 


007040 


012703 


027426 




URTSB3: 


nov 


#yDATA,R3 


;SET EXPT BA 


2395 


007044 


004767 


010542 






JSR 


PC,ER2 


;G0 CHECK ERRORS 


2396 


007050 


005767 


171634 






TST 


SERFL 


;SEE IF ERROR 


2397 


007054 


001737 








BEQ 


URTSB1 


;IF NOT: BR 


2398 


007056 


000167 


177656 






JHP 


URTSBO 




2399 


















2400 















I 
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2401 



2402 


00/062 


005067 


171626 


BTOV: 


CLR 


RTVK 


.•CLEAR RETRY FLAG 


2403 


007066 


012767 


000001 


171632 


nov 


#1 ,BTFLG 


.-SET BAD TAPE OVERFLOW FLAG 


2404 


007074 


005726 






POPSP 






2405 


007076 


000167 


175160 




JHP 


REOT 


;G0 REWIND AND RENOVE FRON TESTING 


2406 


007102 


016701 


171624 


BTOVO: 


nov 


BTPT.Rl 


.-SET TABLE POINTER 


2407 


007106 


005721 






TST 


(Rl )♦ 


2408 


007110 


005000 






CLR 


RO 




2409 


007112 


010003 




BTQVl : 


NOV 


R0,R3 




2410 


007114 


000241 






CLC 






2411 


007116 


006003 






ROR 


R3 


:R3=R3/2 FOR CORRECT NUNBER 


2412 


007120 


004767 


015150 




JSR 


PC.OCTP 


.-PRINT ENTRY NUNBER 


2413 


007124 


012704 


025044 




nov 


fNSG13,R4 




2414 


0071 30 


105724 






TSTB 


(R4)* 


;SKIP CR/LF 


2415 


0071 32 


004767 


014764 




JSR 


PCTTOUT 


; PRINT BLOCK NUNBER TAG 


2416 


0071 36 


011103 






NOV 


(R1 ) ,R3 




2417 


007140 


004767 


015130 




JSR 


PC.OCTP 


.■PRINT BLOCK NUMBER 


2418 


007144 


012704 


025052 




NOV 


#NS614«R4 




2419 


0071 50 


004767 


014746 




JSR 


PCTTOUT 


; PRINT RECORD NUMBER TAG 


2420 


0071 54 


062701 


000040 




ADD 


#40, R1 


;SET POINTER OFFSET FOR RECOED NUMBER 


2421 


007160 


012103 






NOV 


(R1)*,R3 




2422 


007162 


004767 


015106 




JSR 


PC.OCTP 


; PRINT RECORD NUNBER 


2423 


007166 


162701 


000040 




SUB 


140. R1 


.•RESET POINTER FOR BLOCK NUMBER 


2424 


0071 72 


005720 






TST 


(RO)* 




2425 


0071 74 


020077 


171532 




CNP 


RO.iBTPT 


:SEE IF DONE 


2426 


007200 


001405 






BEQ 


BT0V2 


;IF SO: BR 


2427 


007202 


012704 


025352 




NOV 


#HSG28.R4 


2428 


007206 


004767 


014710 




JSR 


PCTTOUT 


.•DO CR/LF 






OUU fir 






OK 


BTUVl 


; CONT INUc 


2430 


007214 


005767 


171510 


BT0V2: 


TST 


BTSTF 


:SEE IF STAT ONLY PRINT 


2431 


007220 


001007 






6NE 


BTOVX 


:IF SO: BR 


2432 


007222 


012703 


000041 




NOV 


#41, R3 


;SET SIZE OF TABLE 


2433 


007226 


016704 


171500 




NOV 


BTPT,R4 


:SET POINTER 


2434 


007232 


005024 




BT0V3: 


CLR 


(R4)* 


.•CLEAR TABLE 


2435 


007234 


005303 






DEC 


R3 


;SEE IF DONE 


2436 


007236 


001375 






BNE 


BT0V3 


;IF NOT: BR 


2437 


007240 


000207 




BTOVX: 


RTS 


PC 


.•RETURN 



2438 
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2439 

24A0 

2A41 

2442 

2443 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 
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.-BAD TAPE STATISTIC PRINT******** 



;D0 CR/LF 



SEQ 0057 



007242 


012704 


025352 


BTPRT : 


MOV 




007246 


004767 


014650 






PC TTnilT 


007252 


016704 


171420 




NOV 


UNP R4 


007256 


016467 


001030 


17144b 


nov 


BTADDR(R4) 


007264 


017703 


171442 




nov 


aSTPT.RS 


007270 


000241 






CLC 


007272 


006003 






ROR 


R3 


007274 


004767 


014774 




JSR 


PC.OCTP 


007300 


012704 


027264 




nov 


#nSG1l2,R4 


007304 


004767 


014612 




JSR 


PC.TTOUT 


007310 


005777 


171416 




TST 


aSTPT 


007314 


001001 






BNE 


BTPRTl 


007316 


000207 






RTS 


PC 


007320 


000167 


177556 


BTPRT1 : 


J MP 


BTOVO 



007324 
007330 
007334 
007340 



004767 013650 

012704 027077 

004767 014562 
000207 



BTUR: 



;BAD 

JSR 

nov 

JSR 
RTS 



.■CORRECT NUMBER 

.•PRINT NUMBER OF BAD SPOTS 

PRINT BAD TAPE TAG 
SEE IF ANY BAD SPOTS 
IF SO: BR 
ELSE RETURN 
PRINT STATS 



TAPE UNRECOVERABLE SUBROUTINE********** 

.-PRINT HEADER 



PC.PAPRT 
#MS6107,R4 
PCTTOUT 
PC 



.-PRINT UNRECOVERABLE BAD SPOT MSG 
.-RESUME TESTING • 
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246A 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 

2480 007342 012767 000002 171212 RSEQ: 

2481 007350 017704 171232 

2482 007354 042704 177763 
2483, 007360 '«A5?04 

24M- 007362 001004 

2485 007364 032777 000002 171214 

2486 007372 001053 

2487 007374 032777 000004 171204 RSR: 

2488 007402 001005 

2489 007404 012767 010000 171150 

2490 007412 004767 000252 

2491 007416 032777 000010 171162 RSF: 

2492 007424 001033 

2493 007426 032767 010000 171126 

2494 007434 001407 

2495 007436 016767 171134 171224 

2496 007444 004767 002570 

2497 007450 000167 000014 

2498 007454 032777 000001 171124 RSFO: 

2499 007462 001002 

2500 007464 004767 002322 

2501 007470 012767 000002 171064 PSFl: 

2502 007476 004767 000166 

2503 007502 005767 171154 

2504 007506 100002 

2505 007510 000167 174546 

2506 007514 005067 171142 RSEX: 

2507 007520 000207 

2508 007522 012767 010000 171032 RSFR: 

2509 007530 032777 000010 171050 

2510 007536 001013 

2511 007540 032777 000001 171040 

2512 007546 001002 

2513 007550 004767 002236 

2514 007554 012767 000002 171000 RSFRO: 

2515 007562 004767 000102 

2516 007566 032777 000004 171012 RSFR1: 

2517 007574 001347 

2518 007576 032767 010000 170756 

2519 007604 001005 
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; **•**********«'»**««• t*****t*«**t* ************* 

;READ SEQUENCER: 

:THIS ROUTINE IS USED TO DETERMINE THE SEQUENCE 
:IN WHICH READ TAPE OPERATIONS ARE TO BE PERFORMED. 
.THIS IS NECESSARY WHEN THE UNIT BEING TESTED IS 
; CAPABLE OF READING DATA IN BOTH THE FORWARD AND 
.-REVERSE DIRECTIONS. CONSOLE SWITCHES ONE (1). TWO <2), 
.-AND THREE (3) ARE USED TO DETERMINE THE READ SEQUENCE. 
.-CONSOLE SWITCH ONE (1) DETERMINES WHETHER TO READ 
.-THE BLOCK OF DATA FORWARD FIRST OR REVERSE FIRST. 
.-SWITCH TWO (2) DISALLOWS READING IN THE REVERSE 
.-DIRECTION AND SWITCH THREE (3) DISALLOWS READING IN 



;THE 


FORWARD DIRECTION. 




MOV 


#2,RDCMD 




MOV 


aSWR,R4 


READ SWITCHES 


BIC 


#1 77763. R4 


MASK READ BITS 


TST 


R4 


SEE IF BOTH READS 


BNE 


RSR 


'IF NOT: BR 


BIT 


#2,aSWR 


-SEE IF READ REVERSE FIRST 


BNE 


RSFR 


' I F NOT : BR 


BIT 


f4.aSWR 


■SEE IF SHOULD READ REVERSE 


BNE 


RSF 


■IF NOT: BR 


MOV 


flOOOO.RDCMD 


;LOAD READ REVERSE COMMAND 


JSR 


PC, READ 


;G0 READ REVERSE 


BIT 


fio.aswR 


■SEE IF SHOULD READ FORWARD 


BNE 


RSEX 


;IF NOT: BR 


BIT 


flOOOO.RDCMO 


;SEE IF HAVE READ REVERSE 


BEQ 


RSFO 


;IF NOT: BR 


MOV 


TSTAL.STAL 




JSR 


PC. STALL :D0 READ STALL 


JMP 


RSF1 




BIT 


jri.aSWR 


■SEE IF WRITE 


BNE 


RSF1 


-IF NOT: BR 


JSR 


PC.BKSP 


■GO BACKSPACE 


MOV 


#2,RDCMD 


aOAD READ FORWARD COMMAND 


JSR 


PC, RE AD 


■GO READ 


TST 


EOTREC 


SEE IF AT END OF TAPE 


BPL 


RSEX 


IF NOT: BR 


JMP 


REOT 


ELSE GO TO REWIND 


CLR 


EOTREC 


; CLEAR EOT FLAG 


RTS 


PC 


;EXIT 


MOV 


flOOOO.RDCMD 




BIT 


fio.aswR 


SEE IF SHOULD READ FORWARD 


BNE 


RSFRl 


■IF NOT: BR 


BIT 


fl.aSWR 


■SEE IF WRITE 


BNE 


RSFRO 


IF NOT: BR 


JSR 


PC.BKSP 


GO BACKSPACE TO START 


MOV 


f2.RDCMD 


LOAD READ FORWARD COMMAND 


JSR 


PC. READ 


GO READ FORWARD 


BIT 


f4.aSWR 


SEE IF SHOULD READ REVERSE 


BNE 


RSEX 


-IF NOT: BR 


BIT 


flOOOO.RDCMD 




BNE 


RSFR2 


IF READ REVERSE: BR 
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2520 007606 016767 170764 171054 

2521 007614 004767 002420 

2522 007620 012767 010000 170734 RSFR2 

2523 007626 004767 000036 

2524 007632 005767 171024 

2525 007636 001411 

2526 007640 166767 170710 171014 

2527 007646 005467 171010 

2528 007652 005267 171004 

2529 007656 000167 174400 

2530 007662 005067 170774 RSFRX 

2531 007666 000207 
253? 



H 5 
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SEQ 0059 



nov 


TSTAL.STAL 


.00 READ STALL 


JSR 


PC .STALL 


NOV 


f 10000, ROCND 


'LOAD READ REVERSE 


JSR 


PC .READ 


■GO READ DFVFR^F 


TST 


EOTREC 


;SEE IF AT END OF TAPE 


BEO 


RSFRX 


:IF NOT: BR 


SUB 


RCNT. EOTREC 




NEC 


EOTREC 


;SEr TO PROPER RECORD NUMBER 


INC 


EOTREC 


JMP 


REOT 


.■ELSE GO TO REWIND 


CLR 


EOTREC 


: CLEAR EOT FLAG 


RTS 


PC 


.-EXIT 
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SEQ 0060 

































c J Jw 




















?S3fi 




















2540 










2541 










2542 










2543 










2544 










2545 










2546 










2547 










2548 










2549 










2550 










2551 










2552 










2553 










2554 










2555 










2556 










2557 










2558 










2559 


007670 


016700 


1 70660 

• • www 




2560 


007674 


005767 


170762 




2561 


007700 


100013 






2562 


007702 


032767 


010000 

W I wwww 


170652 


2563 


007710 


001407 






2564 


007712 


042767 


1 00000 


1 70742 


2565 


007720 


016703 


170736 




2566 


007724 


160300 

1 W V ^ w w 






2567 


007726 


005200 






2568 


007730 


012767 


024755 


170716 


2569 


007736 


005067 


170736 




2570 


007742 


032767 


010000 

w 1 wwww 


170612 


2571 


007750 


001406 

WW 1 T W w 






2572 


007752 


005767 


1 70606 

1 r WW W w 




2^73 


007756 


001403 






2574 


007760 


005267 


170714 




257: 


007764 


005200 






2576 


007766 


016777 


170564 


170522 


2577 


007774 


012777 


033434 


170512 


2578 


010002 


032767 


010000 

w 1 wwww 


170552 


2579 


010010 


001417 






2580 


010012 


016703 


170540 




2581 


010016 


005103 






2582 


010020 


032767 


000020 


170524 


2583 


010026 


001402 






2584 


010030 


000241 






2585 


010032 


006003 






2586 


010034 


060377 


170454 




2587 


010040 


012767 


000076 


1 70626 


2588 


010046 


000403 







READ: 



RDA: 



RDO: 



RD1 : 



READ ROUTINE: 

THIS ROUTINE PERFORMS THE READ OPERATION DETERMINED 
BY THE READ SEQUENCE ROUTINE ONE RECORD AT A TIME. 
AT THE END OF EACH READ OPERATION THE STATUS REGISTER 
IS SCANNED FOR EITHER END OF TAPE OR BEGINNING OF TAPE. 
IF EOT WAS REACHED, CONTROL WILL BE PASSED TO 
THE EOT SUBROUTINE TO REWIND THE UNIT AND FLAG IT 
UNAVAILABLE UNTIL ALL UNITS HAVE REACHED EOT. 
IF BOT WAS REACHED AN ERROR IS PRINTED AND THE 
PROGRAM WILL HALT. TESTING MAY BE RESUMED BY PRESSING 
THE CONTINUE SWITCH. 

IF A TAPE MARK IS EXPECTED (TM=1) THEN THE 
READ ROUTINE EXPECTS THE FIRST RECORD OF A 
READ REVERSE TO BE A TM, AND THE LAST RECORD 
OF A READ FORWARD TO BE A TM. REMEMBER 
THAT THE TM ADDS ONE (1) TO THE TOTAL NUMBER 
OF RECORDS IN A BLOCK. 

CONSOLE SWITCHES ELEVEN (11) AND THIRTEEN (13) DETERMINE WHETHER 
OR NOT TO CHECK FOR STATUS ERRORS (11) OR DATA ERRORS (13), 
CONSOLE SWITCH FIVE (5) IS USED TO CAUSE A CONTINUOUS 
READ AND SPACE (FORWARD OR REVERSE) OF THE CURRENT 
RECORD ON TAPE (YOZZLE). 



MOV 


RCNT.RO 


LOAD REC CNTR 


TST 


EOTREC 


SEE IF EOT 


BPL 


RDA 


IF NOT: BR 


BIT 


#10000,ROCMO 


SEE IF READ FORWARD 


BEQ 


RDA 


-IF SO: BR 


BIC 


flOOOOO.EOTREC 


; CLEAR FLAG 


MOV 


EOTREC, R3 


GET MODIFIED RECORD COUNT 


SUB 


R3,R0 


SET RECORD AT 


INC 


RO 


SET TO PROPER NUMBER OF RECORDS 


MOV 


#MSG6,EMADDR 


SET ERROR MSG ADDRESS 


CLR 


TMFLG 




BIT 


#10000,RDCMD 




BEQ 


RDO 


-IF READ FORWARD: BR 


TST 


TMEX 


SEE IF TM 


BEQ 


RDO 


-IF NOT: BR 


INC 


TMFLG 


-SET TM FLAG 


INC 


RO 




MOV 


FMCNT,aFC 


LOAD CHAR CNTR 


MOV 


#RDATA,aBA 


LOAD DATA ADDR 


BIT 


#10000,RDCMD 


SEE IF READ REVERSE 


BEQ 


RD1A 


IF NOT: BR 


MOV 


FNCNT,R3 




COM 


R3 




BIT 


#20,U0ES 


SEE IF CORE DUMP 


BEQ 


RD1 


IF NOT: BR 


CLC 






ROR 


R3 :R3 = FC/2 


ADD 


R3,8BA 


SET REVERSE BUS ADDRESS 


MOV 


#76.MTC1 .SET READ REVERSE 


BR 


RD1B 





TH02/TUA5 DATA 


RELIABILITY PROGRAM 


MACV11 


30(1046) 


J 5 
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40 PAGE 61 


CZTUIA.P11 07-JUN-78 












SEO 0061 


2589 


010050 


012767 




170A1A 
1 r VQ 1 O 


ROIA: 


MOV 


#70,HTC1 


.-SET READ FORWARD 


2590 


010056 


012767 




1 r UOW 


RD1B: 


MOV 


fRD2,RTRN 


;SET INTERRUPT RETURN ADDRESS 


2591 


010064 


000167 






RD1D: 


JMP 


TAP6 


;G0 EXECUTE TAPE COMMAND 


2592 


010070 


032767 


ninnnn 


1 7(\L/\L 

1 f wHOH 


RD2: 


BIT 


#10000,RDCMD 


;SEE IF READ REVERSE 


2593 


010076 


001024 








BNE 


RD3 


;IF SO: BR 


2594 


010100 


032777 




1 70414 




BIT 


#20,aDS 




2595 


010106 


001404 








BEQ 


RD2B 


; AWAIT SWDN 


2596 


010110 


032777 


0000?0 


1 70404 


RD2A: 


BIT 


f20,aDS 




2597 


010116 


001374 








BNE 


RD2A 


; AWAIT TUR 


2598 


010120 


032777 


vUcvvv 


1 70^74 


RD2B: 


BIT 


#2000, aos 


;SEE IF EOT 


2599 


010126 


001410 








BEQ 


RD3 


;IF NOT: BR 


2600 


010130 


005767 








TST 


THFLG 


;SEE IF TH 


2601 


010134 


001005 








BNE 


RD3 


;IF SO: BR 


2602 


010136 


010067 


1 705?0 






MOV 


RO.EOTREC 




2603 


010142 


052767 


1 OOOOA 

1 VWwVV 


1 7QS1? 

1 r vJ 1 C 




BIS 


#100000, EOTREC 


;SET EOT FLAG 


2604 


01 01 SO 


032777 


00000? 

wvVvvC 


1 70544 


RD3: 


BIT 


#2,aos 


;SEE IF AT LOAD POINT 


2605 


010156 


001411 








BEQ 


RD4 


;IF NOT: BR 


2606 


010160 


004767 


01 ^014 






JSR 


PC.PAPRT 


.PRINT CYCLE NUMBER 


2607 


010164 


012704 








MOV 


#HS622.R4 




2608 


010170 


004767 








JSR 


PCTTOUT 


.•PRINT SOT ERROR 


2609 


010174 


000000 








HALT 






2610 


010176 


000167 








JMP 


STARTA 


.•RESTART 


2611 


010202 


032777 


004000 


1 70576 

1 > Vi^ ■ V 


RD4: 


BIT 


#4000, asuR 


.'SEE IF SHOULD CHECK ERRORS 


2612 


010210 


001121 








BNE 


RD5 


:IF NOT: BR 


2613 


010212 


005767 


17046? 






TST 


TMFLG 




2614 


010216 


001472 








BEQ 


RD4B 


;IF NO TM EXPT: BR 


2615 


010220 


032777 


000004 

w www w" 


170274 

1 1 Wt f ^ 




BIT 


#4,aDS 




2616 


010226 


001024 








BNE 


RD4A 


; IF TM RECVD: BR 


2617 


010230 


012767 


053454 


011074 

VI 1 V • ~ 




MOV 


#RDATA,CADER 


.•SAVE EXPT BUS ADDRESS 


2618 


010236 


012767 


00000? 


011074 

VI 1 V ■ ~ 




MOV 


#2,DRVER 


;SET TM STATUS ERROR FLAG 


2619 


010244 


004767 


010102 






JSR 


PCERPT 


;G0 PRINT TM ERROR 


2620 


010250 


016704 


1704?? 






MOV 


UNP,R4 




2621 


010254 


032767 


010000 

V I WW WW 


170500 

1 • w^vv 




BIT 


f10000,RDCMD 


;SEE IF READ REVERSE 


2622 


010262 


001403 








BEQ 


IS 


;IF NOT: BR 


2623 


010264 


005264 


0011 50 

VV 1 1 ^v 






INC 


RDERR1(R4) 


;BUMP READ REVERSE ERROR 


2624 


010270 


000502 








BR 


RD6 




2625 


010272 


005264 


001110 

VV 1 1 ■ V 




IS: 


INC 


RDER1(R4) 


:BUMP READ FORWARD ERROR 


2626 


010276 


000477 








BR 


RD6 




2627 


010300 


012703 


w J J~ 




RD4A: 


MOV 


#RDATA,R3 




2628 


010304 


032767 


010000 

V 1 WW 


170250 

1 f Vb ^ V 




BIT 


#10000.RDCMD 


:SEE IF READ REVERSE 


2629 


010312 


001007 








BNE 


RD4A0 


:IF SO: BR 


2630 


010314 


032767 


002000 

wv& vvv 


1 70230 

1 f Vb JV 




BIT 


#2000, UDES 


;SEE IF IN PE 


2631 


010322 


001025 








BNE 


RD4A2 


:IF SO: BR 


2632 


010324 


062703 


000002 

wwvc 






ADD 


#2,R3 




2633 


010330 


000422 








BR 


RD4A2 




2634 


010332 


016704 


170220 

1 • Vb&V 




RD4A0: 


MOV 


FMCNT,R4 




2635 


010336 


005104 








COM 


R4 




2636 


010340 


032767 


000020 

www t w 


1 70204 

1 1 vtv~ 




BIT 


#20, UDES 


.SEE IF CORE DUMP 


2637 


010346 


001402 








BEQ 


RD4A1 


;IF NOT: BR 


2638 


0103S0 


000241 








CLC 






2639 


010352 


006004 








ROR 


R4 


;SET TO FC/2 


2640 


010354 


060403 






RD4A1 : 


ADD 


R4.R3 


;SET EXPT BUS ADDRESS 


2641 


010356 


042703 


000001 

www 1 






BIC 


#1.R3 


;MAKE EXPT ADDRESS EVEN 


2642 


010362 


032767 


002000 


170162 




BIT 


#2000, UDES 


;SEE IF IN PE 


2643 


010370 


001002 








BNE 


RD4A2 


;IF SO: BR 


2644 


010372 


162703 


000002 






SUB 


«2.R3 
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2645 


010376 


004767 


007210 




RD4A2: 


JSR 


PC.ER2 




2646 


010402 


000402 








BR 


RD4C 




2647 


010404 


004767 


007104 




RD4B: 


JSR 


PCERCHK ;G0 CHECK ERRORS 


2648 


010410 


005767 


170274 




RD4C: 


TST 


SERFL 




2649 


010414 


001417 








BEQ 


RD5 ; 


IF NO ERROR: BR 


2650 


010416 


016704 


170254 






NOV 


UNP,R4 




2651 


010422 


032767 


010000 


170152 




BIT 


#10000,RDCnD 


SEE IF READ REVERSE 


2652 


010430 


001003 








BNE 


RD4D 


IF SO: BR 


2653 


010432 


005264 


001110 






INC 


RDER1(R4) 


BUnP READ FORWARD ERROR 


2654 


010436 


000402 








BR 


RD4E 




2655 


010440 


005264 


001150 




RD4D: 


INC 


RDERR1(R4} ; 


BUNP READ REVERSE ERROR 


2656 


010444 


004767 


000176 




RD4E: 


JSR 


PCRDRTY 


GO RETRY 


2657 


010450 


005067 


170240 






CLR 


RTYFL 


CLEAR RETRY FLAG 


2658 


010454 


032777 


020000 


170124 


RD5: 


BIT 


#20000, asuR 


SEE IF SHOULD DO DATA CHECK 


2659 


010462 


001005 








BNE 


RD6 


IF NOT; BR 


2660 


010464 


005767 


170210 






TST 


TPtFLG 




2661 


010470 


001002 








BNE 


RD6 




2662 


010472 


004767 


005110 






JSR 


PCDCHK 


-GO CHECK DATA 


2663 


010476 


005067 


170206 




RD6: 


CLR 


SERFL 


CLEAR STATUS ERROR FLAG 


2664 


010502 


004767 


003646 






JSR 


PC.DS3 


CLEAR BUFFER 


2665 


010506 


032777 


000040 


1 70072 




BIT 


#40,aSUR 


■SEE IF SHOULD YOZZLE 


2666 


010514 


001402 








BEQ 


RD7 


-IF NOT: BR 


2667 


010516 


004767 


000532 






JSR 


PC.YOZ 


ELSE GO YOZZLE 


2668 


010522 


016767 


170044 


170140 


RD7: 


nov 


RSTAL.STAL 


;SET DELAY 


2669 


010530 


004767 


001504 






JSR 


PC. STALL 


; STALL 


2670 


010534 


032767 


010000 


170020 




BIT 


#10000.RDCND 


;SEE IF READ REVERSE 


2671 


010542 


001403 








BEQ 


RD7A 


;IF NOT: BR 


2672 


010544 


005067 


170130 






CLR 


THFLG 


; CLEAR TAPE NARK FLAG 


2673 


010550 


000405 








BR 


RD10 




2674 


010552 


005767 


170104 




RD7A: 


TST 


EOTREC 


;SEE IF EOT FOUND 


2675 


010556 


100002 








BPL 


RD10 


;IF NOT: BR 


2676 


010560 


012700 


000001 






nov 


#1.R0 


;SET TO EOT 


2677 


010564 


005300 






RD10: 


DEC 


RO 




2678 


010566 


001402 








BEQ 


RD11 :IF DONE ALL: BR 


2679 


010570 


000167 


177172 






JHP 


RDO 




2680 


010574 


032767 


010000 


167760 


RD11: 


BIT 


flOOOO.RDCND 


;SEE IF READ REVERSE 


2681 


010602 


001016 








BNE 


RDEX 


;IF SO: BR 


2682 


010604 


005767 


170052 






TST 


EOTREC 


;SEE IF FOUND EOT 


2683 


010610 


100413 








BHI 


RDEX 


;IF SO: BR 


2684 


010612 


005767 


167746 






TST 


THEX 


;SEE IF TH EXPECTED 


2685 


010616 


001410 








BEQ 


RDEX 


;IF NOT: BR 


2686 


010620 


005767 


170054 






TST 


THFLG 


;SEE IF Tn FOUND 


2687 


010624 


001005 








BNE 


RDEX 


;IF SO: BR 


2688 


010626 


005267 


170046 






INC 


THFL6 


:ELSE SET FLAG 


2689 


010632 


005200 








INC 


RO 


;SET RECORD COUNT TO ONE 


2690 


010634 


000167 


177126 






JHP 


RDO 


;G0 READ TN 


2691 


010640 


005067 


17003^ 




RDEX: 


CLR 


TBFLG 




2692 


010644 


000207 






RDX: 


RTS 


PC 


;EX1T 
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2693 


















2694 












.-READ 


ERROR RETRY SUBROUTINE: 


2695 


















?696 












•THIS 


SUBROUTINE WILL 


RETRY ALL DATA RELATED 


2697 












.READ 


ERRORS UP TO EIGHT (8) TIHES. IF ALL 


2698 












.•FOUR 


RETRIES ARE BAD. 


IT IS CONSIDERED 


2699 












:A HARD ERROR. IF ANY 


ARE GOOD, IT IS A 


2700 












.-SOFT 


ERROR. RETRIES 


nAY BE INHIBITED 


2701 












.-VIA 


SWITCH FOUR (SU4= 


0: INHIBIT RETRIES) 


2702 














2703 


















2704 


010646 


032777 


000020 


167732 


RDRTY: 


BIT 


#20,aSWR 


.SEE IF RETRY INHIBITED 


2705 


010654 


001001 








BNE 


RDRTO 


;IF NOT: BR 


2706 


010656 


000207 








RTS 


PC 


.-ELSE RETURN 


2707 


010660 


016703 


170040 




RDRTO: 


NOV 


ERSAV,R3 




2708 


010664 


042703 


102700 






BIC 


#102700,R3 


.NARK NON-RECOVERABLE ERROR BITS 


2709 


010670 


001411 








BEQ 


RDRT1 


:IF NOT: BR 


2710 


010672 


004767 


012302 






JSR 


PC.PAPRT 


.•PRINT HEADER 


2711 


010676 


012704 


026630 






nov 


#nSG79.R4 




2712 


010702 


004767 


013214 






JSR 


PC. T TOUT 


.PRINT NON-RECOVERABLE MESSAGE 


2713 


010706 


004767 


000324 






JSR 


PC.NRTP 


.■PRINT ER FOR NON-RETRYABLE ERROR 


2714 


010712 


000207 






RDRT1A: 


RTS 


PC 


.RETURN 


2715 


010714 


032777 


0020': 0 


167664 


RDRT1 : 


BIT 


#2000. aswR 


;SEE IF PRINT INHIBITED 


2716. 


010722 


001004 








BNE 


RDRT1B 


;IF SO: BR 


2717 


010724 


012704 


026303 






nov 


fnSG64,R4 




2718 


010730 


004767 


013166 






JSR 


PC. T TOUT 


.'PRINT ORIGINAL ERROR TAG 


2719 


010734 


005067 


167744 




RDRT1B: 


CLR 


RTCNT 


: CLEAR RETRY COUNTER 


2720 


010740 


005067 


167744 




RDRTG: 


CLR 


SERFL 


.•CLEAR STATUS ERROR FLAG 


2721 


010744 


012767 


000002 


167742 




nov 


#2.RTYFL 


;SET READ RETRY FLAG 


2722 


010752 


004767 


000276 






JSR 


PC.Y02 


:G0 TO YOZZLE TO RETRY READ 


2723 


010756 


005767 


167726 






TST 


SERFL 


;SEE IF RETRY ERROR 


2724 


010762 


001034 








BNE 


RDRT5 


:IF SO: BR 


2725 


010764 


032777 


002000 


167614 




BIT 


f2000.aSUR 




2726 


010772 


001014 








BNE 


RDRT2 




2727 


010774 


012704 


026774 






nov 


#nSGl05.R4 




2728 


011000 


004767 


013116 






JSR 


PC.TTOUT 


:PRINT RECOVERED MESSAGE 


2729 


011004 


012704 


026325 






nov 


fnSG65.R4 




2730 


011010 


004767 


013106 






JSR 


PC.TTOUT 


.■PRINT RETRY TAG 


2731 


011014 


016703 


167664 






nov 


RTCNT, R3 




2732 


011020 


004767 


013250 






JSR 


PC.OCTP 


.'PRINT RETRY NUMBER 


2733 


011024 


016704 


167646 




RDRT2: 


nov 


UNP.R4 




2734 


011030 


032767 


010000 


167524 




BIT 


#10000.RDCnD 


:SEE IF READ REVERSE 


2735 


011036 


001003 








BNE 


R0RT3 


■IF SO: BR 


2736 


011040 


005264 


002670 






INC 


RFS0FT(R4) 


:ELSO BUnP FORWARD SOFT ERROR COUNTER 


2737 


011044 


000402 








BR 


RDRT4 


2738 


011046 


005264 


002710 




RDRT3: 


INC 


RRS0FT(R4) 


;BUnp ERRORS SOFT CNTR 


2739 


011052 


000207 






RDRT4: 


RTS 


PC 


.RETURN 


2740 


011054 


016703 


167644 




RDRT5: 


nov 


ERSAV.R3 


;GET ER 


2741 


011060 


042703 


102700 






BIC 


#102700.R3 


;nASK RECOVERABLE BITS 


2742 


011064 


001414 








BEQ 


RDRT5A 


;IF RECOVERABLE: BR 


2743 


011066 


004767 


012106 






JSR 


PC.PAPRT 


.-PRINT HEADER 


2744 


011072 


012704 


026630 






nov 


#nSG79.R4 




2745 


011076 


004767 


013020 






JSR 


PC.TTOUT 


.PRINT NON-RECOVERABLE nSG 


2746 


011102 


004767 


000130 






JSR 


PC.NRTP 


;PRINT ER 


2747 


011106 


012767 


000001 


167534 




nov 


#l.TEnP3 


.-SET FLAG 


2748 


011114 


000404 








BR 


RDRT5B 





0 



TH02/TU45 DATA RELIABILITY PROGRAM HACYll 30(1046) 

CZTUIA.P11 07-JUN-78 U.49 

2749 011116 032777 002000 167462 RDRT5A: BIT 

2750 011124 001016 BNE 

2751 011126 012704 026325 R0RT5B: HOV 

2752 011132 004767 012764 JSR 

2753 011136 016703 167542 BOV 

2754 011142 004767 013126 JSR 

2755 011146 005767 167476 TST 

2756 011152 001403 BEQ 

2757 011154 C05067 167470 CLR 

2758 011160 000207 RTS 

2759 011162 005267 167516 RDRT6: INC 

2760 011166 026767 167512 167406 CUP 

2761 011174 001261 BNE 

2762 011176 012704 027327 BOV 

2763 011202 004767 012714 JSR 

2764 011206 016704 167464 HOV 

2765 011212 032767 010000 167342 BIT 

2766 011220 001003 BNE 

2767 011222 005264 002730 INC 

2768 011226 000402 BR 

2769 011230 005264 002750 R0RT7: INC 

2770 011234 000207 RORTX: RTS 
2771 

2772 011236 016703 167462 NRTP: BOV 

2773 011242 004767 013026 JSR 

2774 011246 004767 010104 JSR 

2775 011252 000207 RTS 



B 


5 


13-JUN-78 


13:40 PAGE 64 


#2000. asuR 


:SEE IF PRINT INHIBITED 


RDRT6 


:IF SO: BR 


fMSG65,R4 




PC.TTOUT 


.•PRINT RETRY TAG 


RTCNT.R3 




PC.OCTP 


.-PRINT RETRY NUBBER 


TEBP3 


:SEE IF DID N0N>REC0VERABLE 


RDRT6 


:iF NOT: BR 


TEBP3 


.-CLEAR FLAG 


PC 


.•EXIT 


RTCNT 




RTCNT, RETRY 


;SEE IF DONE 8 RETRIES 


RORTG 


;IF NOT: BR 


fBSG115,R4 




PCTTOUT 


.-PRINT HARD ERROR MESSAGE 


UNP.R4 




flOOOO,ROCBO 


:SEE IF READ REVERSE 


R0RT7 


:IF SO: BR 


RFHARD(R4) 


;BUBP FORWARD HARD ERROR CNTR 


RDRTX 




RRHAR0(R4) 


;BUBP REVERSE HARD ERROR CNTR 


PC 


.-RETURN 


ERSAV.R3 


;GET ER REGISTER 


PC.OCTP 


;PRINT ER 


PCFRPRT 


.-PRINT F OR R 


PC 


.-RETURN 
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NACY1 



2776 










2777 










2778 










2779 










2780 










2781 










2782 










2783 










2784 










2785 










2786 










2787 










2788 










2789 


011254 


012777 


000001 


167326 


2790 


011262 


016767 


167312 


167400 


2791 


011270 


004767 


000744 




2792 


011274 


012777 


177777 


167214 


2793 


011302 


032767 


010000 


167252 


2794 


011310 


001404 






2795 


011312 


112767 


000030 


167354 


2796 


011320 


000403 






2797 


011322 


112767 


000032 


167344 


2798 


011330 


012767 


011350 


167326 


2799 


011336 


012767 


177775 


167324 


2800 


011344 


000167 


010052 




2801 


011350 


005767 


167324 




2802 


011354 


001404 






2803 


011356 


012767 


040000 


167304 


2804 


011364 


000403 






2805 


011366 


016767 


167206 


167274 


2806 


011374 


004767 


000640 




2807 


011400 


012777 


033434 


167106 


2808 


011406 


032767 


010000 


167146 


2809 


011414 


001417 






2810 


011416 


016703 


167134 




2811 


011422 


005103 






2812 


011424 


032767 


000020 


167120 


2813 


011432 


001402 






28U 


011434 


000241 






2815 


011436 


006003 






2816 


011440 


060377 


167050 




2817 


011444 


012767 


000076 


167222 


2818 


011452 


000403 






2819 


011454 


012767 


000070 


167212 


2820 


011462 


016777 


167070 


167026 


2821 


011470 


012767 


011502 


167166 


2822 


011476 


000167 


00772C 




2823 


01 1 502 


032777 


004000 


167076 


2824 


011510 


001051 






2825 


011512 


0057o7 


167162 




2826 


011516 


001444 






2827 


011520 


032767 


010000 


167034 


2828 


011526 


001426 






2829 


011530 


012703 


033434 




2830 


011534 


016704 


167016 




2831 


011540 


005104 







Y02: 
YOZO: 



YOZA: 
YOZB: 



YOZC: 



1S: 
2$: 



YOZCO 



YOZCl 
Y0ZC2 



YOZD: 



N 5 
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SEQ 0065 



YOZZLE SUBROUTINE: 

THIS SUBROUTINE, ENTERED VIA SWITCH FIVE (5), IS USED TO PERFORM 

A CONTINUOUS READ AND SPACE OVER OF THE CURRENT RECORD ON TAPE. 

FULL STATUS AND DATA CHECKING MAY BE PERFORMED 

OR NOT VIA CONSOLE SWITCHES ELEVEN (11) AND THIRTEEN (13). 

A SOFTWARE DELAY IS PERFORMED BETWEEN EACH READ 

AND SPACE OPERATION AND MAY BE VARIED BY TYPING 

CNTRL C ON THE TTY AND ENTERING A VALUE IN RESPONSE 

TO THE PRINTED REQUEST. 



MOV 


#1 ,aTKS 


:SET TTY ENABLE 


MOV 


YSTAL.STAL 




JSR 


PC, STALL 


;D0 YOZZLE STALL 


MOV 


#-l,aFC 


;SET TO 1 RECORD SPACING 


BIT 


«10000,RDCMD 


:SEE IF READ REVERSE 


BEQ 


YOZA 


:IF NOT: BR 


MOVB 


#30,MTC1 


:SET TO SPACE FORWARD 


BR 


YOZB 




MOVB 


#32,HTC1 


;SET TO SPACE REVERSE 


MOV 


#YOZC,RTRN 


.-SET RETURN ADDRESS 


MOV 


#1 77775, STAL 


;SET TIME MULTIPLIER 


JHP 


TAPG 


:60 YOZZLE 


TST 


TMFLG 


.-SEE IF TM 


BEQ 


IS 


:IF NOT: BR 


MOV 


#40000, STAL 


;SET TN STALL 


BR 


2S 




MOV 


YSTAL,STAL 




JSR 


PCSTALL 


;D0 YOZZLE STALL 


MOV 


#RDATA,aBA 


;SET BUS ADDRESS 


BIT 


#10000,R0CMD 


;SEE IF READ REVERSE 


BEQ 


YOZCl 


:IF NOT: BR 


MOV 


FMCNT,R3 




COM 


R3 




BIT 


#20,UDES 


.-SEE IF CORE DUMP 


BEQ 


YOZCO 


;IF NOT: BR 


CLC 






ROR 


R3 


;R3 = FC/2 


ADD 


R3,aBA 


;SET REVERSE BUS ADDRESS 


MOV 


#76.MTC1 


.-SET READ REVERSE 


BR 


Y0ZC2 




MOV 


#70.MTC1 


:SET READ FORWARD V 


MOV 


FMCNT,aFC 


.-SET CHARACTER C0UN7 *^*r , ^ 


MOV 


fY0ZD,RTRN 


.SET RETURN ADDRESS 


J MP 


TAPG 


.-GO READ 


BIT 


#4000, 8SWR 


;SEE IF SHOULD CHECK ERRORS 


BNE 


YOZE 


;IF NOT: BR 


TST 


TMFLG 


:SEE IF TAPE MARK TIME 


BEQ 


YOZDl 


;IF NOT: BR 


BIT 


#10000,RDCMD 


;SEE IF READ REVERSE 


BEQ 


YOZDO 


:IF NOT: BR 


MOV 


#RDATA,R3 




MOV 


FNCNT,R4 




COM 


R4 
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SEO 0066 



2832 


011542 


032767 


000020 


167002 




BIT 


f20,UDES ;SEE IF CORE DUMP 


2833 


011550 


001402 








BEO 


Y0ZD4 


IF NOT: BR 


2834 


011552 


000241 








CLC 




SET TO FC/2 


2835 


011554 


006004 








ROR 


R4 


2836 


011556 


060403 






Y0ZD4: 


ADD 


R4.R3 ; 


SET EXPT BUS ADDRESS 


2837 


011560 


042703 


000001 






BIC 


#1.R3 ; 


HAKE EXPT ADDRESS EVEN 


2838 


011564 


032767 


002000 


166760 




BIT 


#2000, UDES ; 


SEE IF PE 


2839 


011572 


001001 








BNE 


Y0ZD2 ; 


IF SO: BR 


2840 


011574 


005743 








TST 


-(R3) ; 


SET EXPT BA 


2841 


011576 


004767 


006^1 ' 




Y0ZD2: 


JSR 


PC.ER2 ; 


GO CHECK ERRORS 


2842 


011602 


000430 








BR 


YOZF 




2843 


011604 


012703 


v-:434 




YOZDO: 


nov 


fRDATA,R3 




2844 


011610 


032767 


002000 


166734 




BIT 


#2000, UDES 


SEE IF PE 


2845 


011616 


001001 








BNE 


Y0Z03 


IF SO: BR 


2846 


011620 


005723 








TST 


(R3)* 


SET EXPT BA 


2847 


011622 


004767 


005764 




Y0ZD3: 


JSR 


PC,ER2 


GO CHECK ERRORS 


2848 


011626 


000416 








BR 


YOZF 




2849 


011630 


004767 


005660 




Y0Z01 : 


JSR 


PCERCHK 


ELSE GO CHECK ERRORS 


2850 


011634 


032777 


020000 


1667U 


YOZE: 


BIT 


#20000, as WR 


-SEE IF SHOULD CHECK DATA 


2851 


011642 


001010 








BNE 


YOZF 


■IF NOT: BR 


2852 


011644 


005767 


167030 






TST 


TnFLG 


■SEE IF TAPE nARK 


2853 


011650 


001005 








BNE 


YOZF 


;IF SO: BR 


2854 


011652 


005767 


167036 






TST 


RTYFL 


;SEE IF RETRY 


2855 


011656 


001004 








BNE 


YOZFO 


;IF SO: BR 


2856 


011660 


004767 


003722 






JSR 


PCDCHK 


;ELSE 60 CHECK DATA 


2857 


011664 


004767 


002464 




YOZF : 


JSR 


PC,DS3 


;G0 CLEAR DATA AREA 


2858 


011670 


105777 


166714 




VOZFO: 


TSTB 


aTKS 


;SEE IF HAVE NEW STALL VALUE 


2859 


011674 


100034 








BPL 


YOZG 


;IF NOT: BR 


2860 


011676 


122777 


000203 


166706 




CBPB 


#203,aTKB 


;SEE IF CONT C 


2861 


011704 


001030 








BNE 


YOZG 


;IF NOT: BR 


2862 


01 1 706 


012704 


026005 






nov 


#nSG44,R4 




2863 


011712 


004767 


012204 






JSR 


PCTTOUT 


;PRINT YSTALL REQUEST 


2864 


011716 


016703 


166656 






nov 


YSTAL,R3 




2865 


011722 


004767 


012346 






JSR 


PCOCTP 


;PRINT PRESENT STALL 


2866 


011726 


010067 


166716 






nov 


R0,TEnP3 


;SAVE RO(REC CNT) 


2867 


011732 


012705 


000600 






nov 


#YSTAL,R5 


;SET ADDRESS OF YSTL 


2868 


011736 


012701 


000006 






nov 


#6,R1 


;SET NUMBER OF CHAR TO INPUT 


2869 


011742 


012702 


M7777 






nov 


#-1,R2 


;SET nAxinun Linn 


2870 


011746 


012703 


002000 






nov 


#2000, R 3 


;SET niNinun Linn 


2871 


011752 


004767 


01 1 706 






JSR 


PC,TTR 


;G0 GET VALUE 


2872 


011756 


016700 


1 66666 






nov 


TEnP3.R0 


.'RESTORE RO(REC CNTR) 


2873 


011762 


000167 


177266 






jnp 


YOZ 


.•RESTART YOZZLE 


2874 


011766 


032777 


000040 


166612 


YOZG: 


BIT 


#40,aSWR 


.■SEE IF SHOULD CONTINUE YOZZ 


2875 


011774 


001402 








BEQ 


YOZH 


;IF NOT: BR 


2876 


011776 


000167 


177272 






jnp 


YOZO 




2877 


012002 


012777 


000100 


166600 


VOZH: 


nov 


#100, aTKS 


.-SET TTY INTERRUPT ENABLE 


2878 


012010 


000207 








RTS 


PC 


.•EXIT 


2879 
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2880 

2881 • ♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦#♦•♦*♦••*•••••••••• t**ttt 

2882 :BACKSPACE SUBROUTINE: 
2883 

2884 .-THIS SUBROUTINE IS USED TO PERFORM THE 

2885 .'BACKSPACE OPERATION REQUIRED BY THE READ 

2886 .-ROUTINE FOR READ FORUARD AFTER URITING. 

2887 ;IF A TAPE HARK IS EXPECTED (TH=1) THEN THE SPACE 

2888 .'ROUTINE ASSUMES THAT THE TH WILL BE FIRST WHEN 

2889 .'BACKSPACING. THEREFORE TWO OPERATIONS ARE REQUIRED 

2890 :T0 SPACE OVER A BLOCK. FIRST SPACE OVER THE TM, THEN 

2891 .SPACE OVER THE DATA RECORDS. 

2892 :A CHECK FOR RECORD COUNT ZERO IS HADE AT THE 

2893 .-END OF THE SPACE OPERATION TO ASSURE THAT PROPER 

2894 .'TAPE POSITIONING WAS DONE. 

2895 ;**********••********•************************•*.**•*** 

2896 



COT f 


01P01P 

v 1 Cw 1 C 


w 1 Q f U f 


166560 


166650 




NOV 


TSTAL STAL 




C OTO 


017070 

V 1 cue V 




000714 






JSR 


PC STALL 


■DO TURN AROUND STALL 






017767 


075005 

UC JMM J 


166622 




HQV 


fNSGIO ENADDR 






0170^7 


017777 


0^34^4 


166454 




NOV 


fRDATA.BBA 




?901 


017040 

VIC V*f V 


005767 


166520 






TST 


TNEX 


•SEE IF TN 


?90? 


017044 


001440 








BEQ 


BO 


'IF NOT: BR 


?901 


017046 


017777 

VIC* ■ f 


177777 


166442 




NOV 


f-l .iFC 




?904 


012054 

View 


017767 


000032 


166612 




NOV 


#32,NTC1 




?905 


017067 


017767 

V 1 c ■ w ■ 


017074 

V 1 C V ( ~ 


166574 




NOV 


fBKTN RTRN 




2906 


012070 


000167 


007326 






JNP 


TAPG 


; SPACE TO TN 


2907 


012074 


032777 


010000 


166504 


BKTN: 


BIT 


flOOOO.aSMR 


;SEE IF SHOULD CHECK ERROR 


2908 


012102 


001021 








BNE 


BO 


;IF NOT: BR 


2909 


012104 


012767 


026217 


166542 




NOV 


tnSGSS.ERADDR 




2910 


012112 


032777 


000004 


166402 




BIT 


f4.8DS 


.SEE IF TN 


2911 


012120 


001006 








BNE 


BKTNO 


;IF SO: BR 


2912 


012122 


012767 


033434 


007202 




NOV 


#ROATA,CADER 




2913 


012130 


004767 


006216 






JSR 


PC.ERPT 


.PRINT ERROR 


2914 


012134 


000404 








BR 


BO 




2915 


012136 


012703 


033434 




BKTNO: 


NOV 


#R0ATA.R3 




2916 


012142 


004767 


005444 






JSR 


PC,ER2 




2917 


012146 


016700 


166402 




60: 


nov 


RCNT.RO 




2918 


012152 


005100 








con 


RO 


.•BUILD SPACE ANOUNT 


2919 


012154 


005200 








INC 


RO 




2920 


012156 


012767 


025005 


166470 




NOV 


#nS610. ENADDR 


;SET ERROR NESG ADDRESS 


2921 


012164 


010077 


166326 






NOV 


RO.aFC 




2922 


012170 


012767 


000032 


166476 


BKRT: 


nov 


#32,NTC1 


.'SET SPACE REVERSE 


2923 


012176 


012767 


012214 


166460 




NOV 


#B1,RTRN 


.-SET RETURN ADDRESS 


2924 


012204 


010067 


166460 






NOV 


RO.STAL 


.'SET INTERRUPT TINE NULTIPLIER 


2925 


012210 


000167 


007206 






JHP 


TAPG 


.-GO DO SPACE 


2926 


012214 


012703 


0334 3^ 




Bl: 


NOV 


mATA.R3 




2927 


012220 


004767 


005366 






JSR 


PC.ER2 




2928 


012224 


016767 


166346 


166436 


B2: 


NOV 


TSTAL, STAL 


.-DO STALL 


2929 


012232 


004767 


000002 






JSR 


PC. STALL 


.-STALL 


2930 


012236 


000207 








RTS 


PC 


.-EXIT 



2931 
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2932 

2933 

2934 

2935 

2936. 

2937 

2938 

2939 

29A0 

29A1 

29A2 

29A3 

294A 

29A5 

29A6 

29A7 

2948 

2949 

2950 

2951 012240 005367 166424 

2952 012244 001375 

2953 012246 000207 
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SEO 0068 



STALL ROUTINE: 

THIS ROUTINE IS USED TO PROVIDE SOFTWARE DELAYS 

DURING READ, WRITE, TURN AROUND, AND YOZZLE. 

THE DELAY TIMES HAY BE SET BY THE OPERATOR AT 

INITIAL START FROM 200(8) OR MAY BE MODIFIED 

AT ANY TIME BY ENTERING CNTRL C ON THE TTY AND 

INSERTING NEW VALUES IN RESPONSE TO THE REQUEST. 

THE READ STALL AND THE WRITE STALL ARE DELAYS 

EXECUTED BETWEEN EACH RECORD OF THE DATA BLOCK. 

THE TURN AROUND STALL IS EXECUTED EACH TIME 

THE DIRECTION OF TAPE MOVEMENT IS CHANGED AND 

ALSO EACH TIME THE TAPE OPERATION CHANGES FROM 

WRITE TO READ OR READ TO WRITE. THE YOZZLE 

STALL IS EXECUTED ONLY DURING THE YOZZLE ROUTINE. 

*************ttt**tt*t**t***«*tt*t****tt*t«** ********** 



STALL: 



DEC STAL 
BNE STALL 
RTS PC 



.•DELAY 
.•EXIT 
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HACYI 













oac c 








































cy^y 


















































CT0*» 










CTO J 






















U 1 




1 777X.A 
1 f f f oO 




£TOO 


U1££34 


Ai 57A5 


i 7/ AAA 
1 f4000 






A1 5 5^/1 
QlC£O0 


AA/ 7X7 
004 Itl 


Ai i 7/ X 

01 1 346 






Ai 05^/ 

oiiio*» 


n/ 57A7 

O^Zf Of 


AAAAAi 
000001 


1 6633s 


3071 


/M 5575 


Ai X7X7 

Olorof 


i XXTTA 
166330 


i662j6 


5075 




AI 57iL7 
01 C f Of 


1 77777 

\ 1 f f f 1 


AA51 A5 
0021 02 


307T 

cyf J 


Ul<: jUo 


AAA5A7 






cyf* 




















cyro 










3077 










3Q7B 










9070 

cyfy 




















C70 1 










ctOc 






























2985 


012310 


012702 


000001 






A1 5t 1 / 


AI 57A1 
0 It f 01 


AAAC AA 

000^00 




2987 


012320 


004767 


011306 




2988 


012324 


016767 


166276 


166222 


2989 


012332 


000207 






2990 










2991 











CCNTR 



RCNTR 
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***tt**t****t******tt*******t***t ************* ****** 
RANDON CHARACTER COUNT GENERATOR: 

THIS ROUTINE ENTERED VIA CONSOLE SUITeH 

SEVEN (7) IS USED TO GENERATE A RANDOH 

CHARACTER COUNT FOR EACH DATA BLOCK. 

ALL RECORDS WITHIN A GIVEN BLOCK WILL BE 

THE SAME, BUT EACH BLOCK WILL VARY. 

THE LIMITS ARE TWENTY (20) TO FOUR THOUSAND 

(4000) OCTAL CHARACTERS PER RECORD. 

t«***t«ttt***tt*tt***tttt*tt*ttt*tt «•*«**« •«*****«•* 



NOV 


#-20, R1 


;SET HIGH LIMIT 


nov 


#-4000, R2 


;SET LOW LIMIT 


JSR 


PC, RANG 


;G0 GENERATE NUMBER 


BIC 


#1,RANSAV 




nov 


RANSAV.FnCNT 


;SET CHAR COUNT 


nov 


#-1,PATS 


.•PRESET DATA PATTERN 


RTS 


PC 


;EXIT 



**t*t«*****t******4***tt*tt**tt«*t**t*t*t*t****«**** 

RANOOn RECORD COUNT GENERATOR: 

THIS ROUTINE ENTERED VIA CONSOLE SWITCH SIX (6) 
IS USED TO GENERATE A RANDOn NUMBER OF RECORDS 
FOR EACH BLOCK OF DATA. 

THE LiniTS ARE ONE (1) TO FIVE HUNDRED (500) OCTAL 
RECORDS PER BLOCK. 

••t**tt*****t*t**t***ttt4****ttt*««**t**ttt**t**t***** 



nov 


#1.R2 


.-SET LOW LIMIT 


MOV 


#500. R1 ' 


;SET HIGH LIMIT 


JSR 


PC. RANG 


;G0 GENERATE NUMBER 


MOV 


RANSAV.RCNT 


;SET RECORD COUNT 


RTS 


PC 


;EXIT 
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C TTj 




c ttS 


• TPCT rniiniTinii fiitdv RniiTiiiF> 


?QOS 




C tTO 




7Q07 


•TO FMTFB AT TUF TTY TUF MFrFCCARV PABAMFTFBC 


7Q<)ft 

t TTO 


■ Tfl RUM TUF PRnCBAM A^ UF UICMFC THF 


70<)<) 

C TTT 


■ROIITIMF nm Y FMTFRFO UPON flllTIAl STARTING 




FROM inrATinM 200(S) 
r nun uvi^^ i iUil cw i • 




THF HAIIll PlIBPn^F OF TUt^ ROIITIMF IQ Td FCTARi ICU 




A TARI F HF DFVirFC TD RF TFCTFD THI^ TARi F 




rnNSKT^ nF an fmtry for fatm df nNF m) to 


3004 


■FIGNT (8) DFVICFS FACH FNTRY rOMTAINS TMF 


3005 


■ClAVF NUHBFR DFNSITY PARITY AMD 


3006 


■FORMAT THF IMFQRMATIOM IS FMTFRFD 


3007 


IN RFSPOMSF TO PRIMTFD RFOUFSTS AT THF TTY 


3008 


SI AVFS NAY BF FMTFRFD IM ANY QRDFR FAfH 


3009 


PARAMFTFR IS CHfCHfb FOR LFCAl ITY BFFQRF FIFING 


3010 


■SFT INTO THF TARI F 
dc 1 iniu inc 1 miLC ■ 


301 1 


■THF DRIVF NUMBFR RFQUFST UII 1 AI SO THFTK THF MASSRIIS 
inc i/nivc nunocn ncvucw i viCL nc^u Lncw^ inc rinooovo 


3012 


■FOR THF PRFSFMCF OF THF RFOIIFSTFD DRIVF IF IT IC NOT FOUND 
r un inc rnCwCiwc ur inc nCwUCwici/ vnivc* 1* li 10 nU i r vuni/ ^ 


3013 


■A MOM->FXIST DRIVF MFSSAGF UIM BF PRINTFD AND AMOTUFR DRIVF 
n iiuii CAi^i i/niTC ncv^nvc wall dc rnAraicv nnv ^rauincn i/nivc 


3014 


•RFQUFST HABF UHFM THF DRIVF IS FOUND TMF BFSPOMSF IS STORFD 


3015 


■AMD CONTROL PASSED TO THE SLAVE SELECT ROUTINE 


3016 


■THF SI AVE SELECT ROUTINE Al SO CHECKS FOR THF PRFSFNCF OF THF 


3017 


■SLAVE IF IT IS NOT PRESENT A MESSAGE IS PRINTFD AND ANOTHER 


3018 


■REQUEST IS ISSUED UMEN THE SELECTED SLAVE IS FOUND TO BF 


3019 


■PRESENT A MESSAGE IS PRINTED IF IT IS A 7 CHANNEL DRIVE 


3020 


■TO ASSIST IN SELECTING DENSITY PARITY AND FORMAT 


3021 




3022 


-ARF PRIMTFD FOR FMTRY OF TMF MUHfiFR OF rHARACTFR^ 


3023 


■PER RECORD AMD THE NUMBER OF RECORDS PER Bl QCK THF 


3024 


■NEXT REQUEST IS FOR A PATTERN NUMBER TO BE USED 


3025 


FOR URITIMG AMD tUfCtlUG OF RFAD DATA 
run wnAiAWQ nivi/ v nc A raw ur ncnv vn i " • 


3026 


FOLI OUIMG THF PATTFRM RFOIJFST IS THF TAPF MARIt HPTIQN 
r vki. WW A raw inc rni icnra nc vuc wi Aw inc i nr c nnn fv ur i a ura « 


3027 


RESPONDING TO THE REQUEST (TM=) WITH A ONE (1) 

n b w> wrai/ A raw iw inc ncvwcwi \in*/ wai** n wnL \ i / 


3028 


yiLL CAUSE THE PROGRAM TO URITE A TM AT THE 


3029 


■END OF EACH DATA BLOCT AMD TO EXPECT THE 

crav w' knvfi vnin wwwvi^ nrav iw fcAr cvi i rik 


3030 


;TH TO BE DETECTED IN EITHER READ FORWARD AND REVERSE 


3031 


■OR DURING SPACE OPERATION. A RESPONSE OF ZERO (Tn=0) 


3032 


-DISALLOWS WRITTIN6 OF THE TM AND CAUSES THE READ 


3033 


■AND SPACE ROUTINES TO EXPECT NO TM TO BE PRESENT. 


3034 


■THE LAST REQUESTS ARE FOR ENTRY OF THE DESIRED 


3035 


;WRITE, READ, AND TURN AROUND STALLS. 


3036 


■****************************************************** 



3037 

3038 012334 005767 166276 TINP: TST 

3039 012340 001001 BNE 

3040 012342 000207 RTS 

3041 012344 005067 166326 TINPA: CLR 

3042 012350 005067 172426 CLR 

3043 012354 012700 000010 MOV 

3044 012360 012701 000746 MOV 

3045 012364 005021 TINPB: CLR 

3046 012366 005300 DEC 

3047 012370 001375 BNE 



TINF :SEE IF SHOULD INPUT FROM TTY 

TINPA :IF SO: BR 

PC ;EXIT 

UNP ; CLEAR TABLE POINTER 

REOTC .'CLEAR EOT UNIT COUNTER 

#10, RO ;SET SIZE OF TABLE 

fUNl.RI ;SET START OF TABLE 

(RD* .CLEAR TABLE 

RO ;SEE IF DONE 

TINPB :IF NOT: BR 
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SEQ 0071 


r 7 T 1 1 1 A 


P11 07-JUN-78 














012372 


012704 






nov 


#M^(;^1 B4 








012376 


005767 


1 fifiXXL 
1 OO J J*t 




TST 




SFF IF AUTO SFO 




JVJV 


012A02 


001402 






BEO 


TINPR1 

1 i llr D 1 « 


IF NOT- BR 

A 1 nw 1 ■ on 






012404 


012704 


no^x^L 




nov 


fnSG30,R4 ; 


SET AUTO SEQ HDR 






012410 


004767 


ni 1 

U 1 1 jUO 


TINPB1 : 


JSR 


PC.TTOUT 


PRINT PROGRAn NAHE 






012414 


005767 


UU 1 JCO 




TST 


SCVFL ; 


SEE IF SHORT CONVERSATION 






012420 


001073 






BNE 


TINPC ; 


IF SO: BR 






012422 


012704 


UcO jUi 




nov 


#nSG74.R4 








012426 


004767 


ni i^7n 

U 1 1 1 V 




JSR 


PCTTOUT :REOUEST STARTING REGISTER ADDRESS 




Tin? 


012432 


016703 


1 OO 1 uo 




nov 


REGS.R3 






jU JO 


012436 


004767 






JSR 


PC.OCTP ; 


PRINT CURRENT REG START 






012442 


012705 






nov 


fREGS,R5 


SAVE ADDRESS LOCATION 




3U0U 


012446 


012701 


UUvwUO 




HOV 


#6,R1 


SET SIZE OF ENTRY 




jUO I 


012452 


012702 


1 ( f HUw 




nov 


#1 77400. R2 


SET UPPER LiniT 




3U0c 


012456 


012703 


1 OUvUv 




nov 


#160000, R3 


SET LOWER LiniT 






012462 


004767 


mil 7A 




JSR 


PCTTR 


GO GET RESPONSE 




jUO*f 


012466 


012704 






nov 


fnSG75.R4 








012472 


004767 


U 1 1 HC* 




JSR 


PC.TTOUT ;G0 REQUEST VECTOR ADDRESS 




jUOO 


012476 


016703 


1 OOwHH 




nov 


VECT,R3 








012502 


004767 


ni 1 'iftft 




JSR 


PC.OCTP 


PRINT CURRENT VECTOR 




jUOo 


012506 


012705 






nov 


#VECT.R5 


'SET SAVE LOCATION 






012512 


012701 






nov 


#3.R1 


■SET SIZE OF ENTRY 




JUr U 


012516 


012702 






nov 


#474,R2 


;SET UPPER LiniT 




3vi 1 


012522 


012703 


onoino 

vUv 1 WV 




nov 


#100.R3 


;SET LOWER LiniT 




jUr C 


012526 


004767 


01 1 1 
will jC 




JSR 


PC.TTR 


; GO GET RESPONSE 




Xt\7X 


012532 


016700 


1 DDv 1 U 




nov 


VECT.RO 


;GET VECTOR ADDRESS 




Xf\TL 


012536 


012720 


VCCC 1 o 




nov 


fnTINT,(RO)^ 


;LOAD VECTOR WITH HANDLER ADDRESS 




JVfJ 


012542 


012710 






nov 


#340, (RO) 


;LOAD PRIORITY LEVEL 




jvr O 


012546 


016700 


16577? 




nov 


REGS.RO 


;GET STARTING REGISTER ADDRESS 




^077 


012552 


012701 


vvww 1 O 




nov 


#16, R1 


;SET NUnSER OF REGISTERS 




xn7ft 


012556 


012702 






nov 


#C1,R2 


;GET FIRST ADDRESS LOCATION 




xn7Q 


012562 


010022 




TINPBO 


nov 


R0,(R2)^ 


;BUILD TABLE OF ADDRESSES 






012564 


062700 


000007 




ADD 


#2,R0 


;BUnP ADDRESS 






012570 


005301 






DEC 


R1 


;SEE IF DONE 






012572 


001375 






BNE 


TINPBO 


;IF NOT: BR 




3VOJ 


012574 


005767 


1 WW 1 WW 




TST 


ASEQF 


;SEE IF AUTO SEQ 






012600 


001403 






BEQ 


TINPC 


:IF NOT: BR 






012602 


005726 






TST 


(SP)* 


.•RESET STACK POINTER 




XtMiA 
jvOO 


012604 


000167 


WU 1 He** 




jnp 


ASEQ 


:G0 TO AUTO SEQUENCE 




jvOf 


012610 


012777 


000040 1<^S707 

vvvv**w iwJrVC 


TINPC: 


nov 


#40,acs 


.-INITIALIZE 




jvOO 


012616 


012704 


VCw 1 J** 




nov 


#nSG52,R4 








012622 


004767 


011774 

W i 1 C » H 




JSR 


PC.TTOUT 


.-REQUEST DRIVE NUnBER 




JVTV 


012626 


012705 


000^50 

WW J J\J 




nov 


#DVN.R5 


;GET ADDRESS 




xnoi 

JVT 1 


012632 


012701 


000001 

WvWvW 1 




nov 


#1.R1 


.-SET SIZE OF RESPONSE 






012636 


012702 


000007 




nov 


#7.R2 


.-SET UPPER LiniT 






012642 


012703 


000000 

WvvvvW 




nov 


#0.R3 


:SET LOWER LiniT 






012646 


004767 


01 1017 

W i 1 V i c 




JSR 


PC.TTR 


;G0 GET DRIVE NUHBER 






012652 


016777 






nov 


DVN.aCS 








012660 


005777 


165674 




TST 


aci 


.ACCESS DRIVE 




xno7 


012664 


032777 


010000 165676 




BIT 


#ioooo,acs 


.-SEE IF NED 




3098 


012672 


001413 






BEQ 


TINPO 


:IF NOT: BR 




3099 


012674 


012704 


026444 




nov 


#nSG71,R4 






J 1 vv 


012700 


004767 


01 1716 

W 1 1 C 1 w 




JSR 


PC.TTOUT 


.-PRINT NED 




3101 


012704 


016704 


165600 




nov 


C1.R4 






3102 


012710 


005204 






INC 


R4 






3103 


012712 


152714 


000100 




BISB 


#100, (R4) 


.-CLEAR TRE 
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SEQ 0072 



3104 


012716 


000167 


177666 






JHP 


TINPC ; 


RETRY DVN 




3105 


012722 


012704 


025540 




TINPO: 


nov 


fnSG32.R4 






3106 


012726 


004767 


011170 






JSR 


PC, T TOUT ; 


PRINT UNIT NUMBER REQUEST 




3107 


012732 


00S067 


165710 






CLR 


TEnP2 : 


CLEAR BUFFER 




3108 


012736 


012705 


000646 






nov 


fTEnP2,R5 ; 


SET UNIT DESCRIPTION BUFFER 


ADDRESS 


3109 


012742 


012701 


000001 

www 1 






nov 


f1.R1 


SET NUnBER OF CHARACTERS TO 


INPUT 


3110 


012746 


012702 


000007 






nov 


#7.R2 


SET nAxinun Linn 




3111 


012752 


012703 


000000 






nov 


fO,R3 


SET niNinun Linn 




3112 


012756 


004767 


010702 






JSR 


PCTTR 


GO GET UNIT NUnBER 




3113 


012762 


005767 


165656 






TST 


TEnPI 


SEE IF HAVE NEW PARAnETER 




3114 


012766 


001014 








BNE 


TINPOB 


IF SO: BR 




3115 


012770 


005767 


165702 






TST 


UNP 


SEE IF FIRST ENTRY 




3116 


012774 


001002 








BNE 


TINPOA 


IF NOT: BR 




3117 


012776 


000167 


177720 






JHP 


TINPO 


ELSE RETRY 




3118 


013002 


016700 


165670 




TINPOA: 


nov 


UNP.RO 






3119 


013006 


012760 


177777 


000746 




nov 


«-1,UNl(R0) .-SET END UNIT TABLE 




3120 


013014 


000167 


000402 






jnp 


TINP2C :G0 GET RECORD COUNT 




3121 


013020 


016700 


165652 




TINPOB: 


nov 


UNP,RO 






3122 


013024 


042760 


000007 


000746 




BIC 


#7.UN1(R0) 


CLEAR UNIT NUnBER 




3123 


013032 


004767 


001124 






JSR 


PCTPOSI ;G0 LOAD UNIT NUnBER TO PROPER POSITION 


3124 


01 3036 


012777 


000040 


165454 




nov 


f40.acs 






3125 


013044 


016777 


165500 


165446 




nov 


DVN.aCS 






3126 


013052 


016077 


000746 


165462 




nov 


UN1(R0),aC2 ;LOA0 UNIT NUMBER 




3127 


013060 


032777 


002000 


165450 


TINPOC: 


BIT 


f2000,aDT :SEE IF SLAVE PRESENT 




3128 


013066 


001006 








BNE 


TINPOD 


;IF SO: BR 




3129 


01 3070 


012704 


026232 






nov 


#nSG57.R4 






3130 


013074 


004767 


011022 






JSR 


PCTTOUT 


;PRINT NON-EXIST SLAVE 




3131 


013100 


000167 


177616 






jnp 


TINPO 


;REDO 




3132 


013104 


022777 


142012 


165424 


TINPOD: 


cnp 


#142012,aDT 


;SEE IF 9TRIC Tn02.TU45 




3133 


013112 


001410 








BEQ 


TINPOE 


•IF SO: BR 




3134 


013114 


012704 


026127 






nov 


«nSG50,R4 


; ILLEGAL DRIVE TYPE 




3135 


013120 


004767 


010776 






JSR 


PCTTOUT 


;G0 PRINT 




3136 


013124 


017703 


165406 






nov 


aDT,R3 






3137 


013130 


004767 


011140 






JSR 


PCOCTP .PRINT DRIVE TYPE REGISTER 




3138 


013134 


012704 


024777 




TINPOE: 


nov 


«nSG9,R4 






3139 


013140 


004767 


010756 






JSR 


PCTTOUT 


;PRINT SERIAL NUnBER TAG 




3140 


013144 


017703 


165370 






nov 


aSN,R3 






3141 


013150 


004767 


011446 






JSR 


PCSNPT 


; PRINT SERIAL NUnBER 




3142 


013154 


012704 


025561 




TINP1 : 


nov 


#nS633.R4 






3143 


01316C 


004767 


010736 






JSR 


PCTTOUT 


;PRINT DENSITY REQUEST 




3144 


013164 


005067 


165456 






CLR 


TEnP2 


; CLEAR BUFFER 




3145 


013170 


012701 


000001 






nov 


#1.R1 


;SET NUnBER OF CHARACTERS TO 


INPUT 


3146 


013174 


012702 


000007 






nov 


#7,R2 


;SET nAxinun Linn 




3147 


01 3200 


012703 


000000 






nov 


#0.R3 


;SET niNinun Linn 




3148 


013204 


004767 


010454 






JSR 


PCTTR 


;G0 GET DENSITY 




3149 


013210 


005767 


165430 






TST 


TEnPI 


;SEE IF HAVE NEW PARAnETER 




3150 


013214 


001407 








BEQ 


TINP2 


'IF NOT: BR 




3151 


013216 


042767 


003400 


165326 




BIC 


13400. UDES 


•ELSE CLEAR OLD PARAnETER 




3152 


013224 


012703 


000010 






nov 


#10. R3 


;SET POSITION FACTOR 




3153 


013230 


004767 


000714 






JSR 


PCTPOS 


;60 LOAD DENSITY INTO PROPER 


POSITION 


3154 


013234 


012704 


025575 




TINP2: 


nov 


#nSG34,R4 






3155 


013240 


004767 


010656 






JSR 


PCTTOUT 


;PRINT PARITY REQUEST 




3156 


013244 


005067 


165376 






CLR 


TEnP2 


;CLR BUFFER 




3157 


013250 


012701 


000001 






nov 


«1.R1 


;SET NUMBER OF CHARACTERS TO 


INPUT 


3158 


013254 


012702 


000001 






nov 


11. R2 


;SET HAxinun LiniT 




3159 


013260 


012703 


000000 






nov 


«0,R3 


;SET niNiNun LiniT 





TH02/TU45 DATA RELIABILITY PROGRAM 
CZTUIA.P11 07-JUN-78 U:A9 



HACY11 30(1046) 



I 6 

13-JUN-78 13:40 PAGE 73 



SEO 0073 



J 1 W 


01 3?64 


004767 

WW" f W ' 


010374 






JSR 


PC.TTR 


GO INPUT PARITY 


3161 


013270 


005767 

WW ^ 1 W ' 


165350 






TST 


TEnp^ 


SEE IF HAVE NEW PARAMETER 


3162 


013274 


001407 








BEO 


TINP2A 


IF NOT: BR 


3163 


013276 


042767 


000010 

W W W V 1 w 


165246 




BIC 


flO.UDES ; 


ELSE CLEAR OLD PARAMETER 


3164 


01 3304 


012703 


000003 

w w w w w ^ 






nov 


#3.R3 


SET POSITION FACTOR 


316S 


013310 


004767 

WW^ • W F 


000634 

WWWW J~ 






JSR 


PCTPOS 


GO LOAD PARITY TO PROPER POSITION 


3166 


013314 


012704 


026175 




TINP2A: 


MOV 


fnSG53,R4 




3167 


013320 


004767 


010576 






JSR 


PC.TTOUT .-REQUEST FORMAT 


3168 

J 1 WW 


013324 


005067 


165316 






CLR 


TEnP2 




3169 


013330 


012701 


000002 






nov 


f2,R1 




3170 


013334 


012702 


000016 

wwww ■ w 






nov 


#16, R2 




3171 


013340 


012703 


000014 






nov 


#14, R3 


GO GET FORMAT 


3172 


013344 


004767 


010314 






JSR 


PC.TTR ; 


3173 


013350 


005767 


165270 






TST 


TEnPI ; 


SEE IF NEW PARAMETER 


3174 


013354 

W 1 WWW" 


001407 








BEQ 


TINP2B ; 


IF NOT: BR 


3175 


013356 

V 1 wwww 


042767 


000170 


165166 




BIC 


#170,UDES 




3176 


013364 


012703 


000004 

w w w w w » 






nov 


«4.R3 




3177 


013370 


004767 


000554 






JSR 


PCTPOS 




3178 


013374 


005267 


171402 




TINP2B: 


INC 


REOTC 


BUMP EOT UNIT COUNTER 


3179 


013400 


022767 


000016 


165270 




cnp 


«16,UNP 


SEE IF DONE UNITS 


3180 


013406 


001405 








BEQ 


TINP2C 


IF SO: BR 


3181 


013410 


062767 


000002 


165260 




ADD 


#2.UNP 


POINT TO NEXT UNIT 


3182 


013416 


000167 


177300 






jnp 


TINPO 


ELSE LOOK FOR NEXT UNIT 


3183 


013422 


005067 


165250 




TINP2C: 


CLR 


UNP 


CLEAR UNIT POINTER 


3184 


013426 


016700 


171350 






nov 


REOTC, RO 




3185 

a/ ( Wa' 


013432 

W 1 W^ WSa 


000367 


171344 






SWAB 


REOTC 




3186 

V WW 


013436 


110067 


171340 






novB 


RO. REOTC ;SET UNIT EOT COUNTER 


3187 


013442 


012704 


025610 




TINP3: 


nov 


#nSG35,R4 




3188 


013446 


004767 


010450 






JSR 


PC.TTOUT ;PRINT RECORD COUNT REQUEST 


3189 


013452 


016703 


165076 






nov 


RCNT.R3 




3190 


013456 


004767 


010612 






JSR 


PCOCTP 


;PRINT RECORD COUNT 


3191 


01346? 


012705 


000554 






nov 


#RCNT.R5 


;SET RECORD COUNT ADDRESS 


i19^ 


01^': 66 


012701 


000006 






nov 


#6,R1 


;SET NUnSER OF CHARACTERS TO INPUT 


3193 


013472 


012702 


177777 






nov 


#-1.R2 


;SET MAXinun LIMIT 


3194 


013476 


012703 


000001 






nov 


«1,R3 


;SET niNinun limit 


3195 


013502 


004767 


010156 






JSR 


PCTTR 


;G0 GET RECORD COUNT 


3196 


013506 


016767 


165042 


165114 




nov 


RCNT.RCSAV 


;SAVE RECORD COUNT 


3197 


013514 


012704 


025631 






nov 


#nSG36,R4 


;PRINT CHARACTER COUNT REQUEST 


3198 


013520 


004767 


010376 






JSR 


PC.TTOUT 


3199 


013524 


005467 


165026 






NEC 


FnCNT 




3200 


013530 


016703 


165022 






nov 


FnCNT,R3 




3201 


013534 


004767 


010534 






JSR 


PC.OCTP 


; PRINT CHAR COUNT 


3202 


013540 


012705 


000556 






nov 


#FnCNT.R5 


;SET CHARACTER COUNT ADDRESS 


3203 


013544 


012701 


000006 






nov 


f6.R1 


;SET NUMBER OF CHARACTERS TO INPUT 


3204 


013550 


012702 


004000 






nov 


#4000. R2 


;SET nAxinun Linn 


3205 


013554 


012703 


000004 






nov 


#4.R3 


;SET niNinUM LIMIT 


3206 


013560 


004767 


01010C 






JSR 


PC.TTR 


;G0 GET CHARACTER COUNT 


3207 


013564 


005467 


164766 






NEC 


FHCNT 


;SET TO TWO'S COMPLIMENT 


3208 


013570 


016767 


164762 


165034 




nov 


FnCNT.FCSAV 


;SAVE FRAME COUNT 


3209 


013576 


012704 


025655 






nov 


#nSG37.R4 


.•PRINT PATTERN NUMBER REQUEST 


3210 


013602 


004767 


010314 






JSR 


PC.TTOUT 




3211 


013606 


016703 


164746 






nov 


PATRN.R3 




3212 


013612 


004767 


010456 






JSR 


PC.OCTP 


;PR1NT PATTERN 


3213 


013616 


005067 


000742 






CLR 


DOFL 


.•CLEAR EXTERNAL DATA FLAG 


3214 


013622 


012705 


000560 






nov 


fPATRN.RS 


;SET PATTERN NUMBER ADDRESS 


3215 


013626 


012701 


000002 






nov 


#2.R1 


.-SET NUMBER OF CHARACTERS TO INPUT 



TH02/TUA5 DATA 


RELIABILITY PROGRAM 


NACni 


30(1046) 


J 

13-JUN-78 


6 

13:40 PAGE 74 


CZTUIA. 


P11 07-JUN-78 


14:49 








SFQ 0074 


3216 


U1 JQic 




000015 




Mnu 

nu V 


#15 R3 


■ ^FT MAXIMUM i IMIT 


3217 


01^030 


\}icrv3 


000000 






#0 RiS 


•^FT MINIMUM 1 IMIT 
« ot 1 nininun Lir«A i 


3218 




Art/ 7i7 


010016 




J J n 


PC TTR 


-60 GET PATTERN NUMBER 


3219 




ni 57n/ 


026372 




MOU 


#M^669 R4 

w nowu 7 # n^ 




3220 




00*tf 0^ 


010244 




J on 


Pr TTOIJT 

r ^. « 1 f UU 1 


•RFQUFST TH 


3221 




ni A7nT 
U 1 Or U 0 


164702 




MRU 


TMFX R^ 

1 nL. A ^ n J 




3222 


U 1 joOc 


nnz 7A7 


010406 




J on 


Pf OCTP 

r V # U w 1 r 


•PRINT CIIRRFNT TM FIAG SFTTING 

yinini vunnLni in r^nu ot'iAnu 


3223 


v I oooo 


ni 57n^ 


000564 






#TMFX R5 


■GFT TM FLAG ADDRFSS 


3224 


ftl XA75 


ni 57ni 


000001 






#1 R1 


•^FT SI7F OF RF^PONSF 

fOtI (JILL Ui ntOi Ul¥ «9b 


322S 


U 1 jOr 0 


ni57n3 


000001 




MOU 


#1 R2 

V 1 « nc 


•SET UPPER LIMIT 


3226 






000000 




MOU 


#0 R3 


■SFT LOUER LIMIT 


3?27 


U 1 Or UO 


nni 7A7 


007752 




J on 


PC TTR 


'TM 1=YES 


3228 


Mtjf 1 c 


ni J7f\L 


025700 




MOW 


fMSG^S R4 




3229 


01 '^71 A 


nn£ 7A7 


010200 




I^R 
J on 


Pf TTOUT 

r W # 1 1 UU 1 


-RFQUFST SINfilF PASS 


3230 


ni^7?? 

v\jl CC 


ni A7n'^ 

U lOi Uj 


164642 




Mnu 


^PFI G R^ 




3231 


CO 


nn^7A7 


010342 




(/ o n 


PC OCTP 


•PRINT CURRENT SETTING 


3232 




ni?7ns 


000570 




MOU 


f ^PFt G RS 


•SET ADDRESS OF FLAG 

# Ow 1 n 1/1/ rib o«# ur rbnw 


3233 




ni 3701 


000001 




Mnu 

nu ¥ 


#1 R1 


-SFT SIZE OF RESPONSE 

« Ok 1 04Lb Ui nborun«^b 


3234 




01?7fl? 


000001 




nu ¥ 


f 1 R2 
V 1 # nc 


•SET UPPER LIMIT 


3255 


U 1 Jf HO 




000000 




MOU 

nu w 


#0 R^ 


*SET LOUER 1 IMIT 


3236 




nO£7A7 


007706 




J^R 


PC TTR 


•GO GET RESPONSE 

fWU wbi r\bOru*¥<Jb 


3237 


Mt 31 


00^7A7 


000164 


T INP4 - 


TST 


SCVFL 


•SE'E IF SHORT CONVERSATION 


3238 




001 OAA 
vv 1 UOO 






unL. 


T INPX 


■IF SO- BR 

« A ■ ou • on 


3239 


U 1 J f o** 


01770£ 
V icf U1 


025720 




MOV 

nu ¥ 


fM^G40 R4 

wnju~v # n^ 




3240 


ni ^770 

V I jf f\J 


00£7A7 


010126 




J^R 


PC TTOUT 

■ I. # 1 1 VU 1 


■PRINT READ STALL REQUEST 


3241 


(^^X77c 


01 A70^ 

U 1 Or MJ 


164572 




MOU 

nu w 


R^TAf R^ 

n o 1 nL. « n J 




3242 


m^nnn 


00A7A7 


010270 




J on 


Pf nfTP 


•PRINT RFAD STAI 1 


3243 


ni^nn^ 


01 770^ 


000572 




nu V 


fRSTAI RS 
V n o 1 # 


*SFT RFAD STAI 1 ADDRFSS 
« ot 1 nwmr o mUb m/i/nboo 


3244 


ni^nin 


01?701 


000006 




MOV 

nu ¥ 


#6 R1 


•SET NUMER OF CHARACTERS TO INPUT 


3245 




vie vC 


177777 




MOV 

nu ¥ 


t-l R2 

w 1 # nc 


■SET MAXIMUM LIMIT 


3246 


V/ \ H\ICv 


01370'^ 


000001 




MOV 

nu ¥ 


t1 R^ 


•SET MINIMUM LIMIT 

« Ob 1 mnmwn bini i 


3247 




(\(\C7fi7 
1 o > 


007634 




I^R 


Pf TTR 

r V ^ 1 in 


GO GET READ STALL 

• VU lib 1 nwnir 1 nbb 


3248 


ni^nxn 


01970^ 


025747 




NOV 

nu ¥ 


fMSG41 R4 




3249 


ni^n^£ 


00^7^7 


010062 




J^R 

J o n 


PC TTOUT 

r V 4 1 I UU 1 


■PRINT URITE STALL REQUEST 


3250 




01^70^ 


164530 




MOV 

nu ¥ 


USTAL R3 




3251 




00£7A7 
Vwl r Or 


010224 




JSR 


PC OCTP 


■PRINT READ STALL 


3252 


ni^nsn 


01970S 


000574 




MOV 

nu ¥ 


fUSTAL RS 


•SET URITE STALL ADDRESS 


3253 


ni£ns£ 


019701 
U 1 C r 1/ 1 


000006 




MOV 

nu ¥ 


#6 R1 

* V # n 1 


•SET NUMBER OF CHARACTERS TO INPUT 


3254 


U 1 *tUOv 


013709 

U 1 £ r UC 


177777 




MOV 

nu ¥ 


f-1 R3 

• ■ # nc 


•SET MAXIMUM LIMIT 

#(jbi n^Ai nun c i n a i 


3255 


U 1 tuo** 


01370^ 

V 1 C r U J 


000001 




MOV 

nu V 


#1 R^ 


'SET MINIMUM LIMIT 


3256 




00£7A7 

vvl r O r 


007570 




J O n 


Pf TTR 

r V # 1 in 


•GO GET URITE STALL 


3257 


01^07^ 


01370^ 

U 1 C r VIH 


025761 




Mnu 

nu¥ 


tM^A^? R4 

w n o w~ c # n ^ 




3258 


ni^ino 

V 1 1 Uv 


no^7A7 

UU1 r Or 


010016 




^ on 


PC TTOUT 

1 V # 1 1 UU * 


■PRINT TURN AROUND STALL REQUEST 


3259 


W 1 •! 1 vt 


U 1 Or w J 


164466 




MOW 
nu ¥ 


1 O 1 # n J 




3260 


01^110 


ww"t r o r 


010160 




J^R 
on 


Pf nfTP 


■PRINT TA STALL 


3261 




01370S 


000576 




MOU 

nu¥ 


fT^TAI RS 


•SET TURN AROUND STALL ADDRESS 

f^bi iuni¥ miwu»¥i/ «#inbb ni/i^nbww 


3262 


V 1 1 Cv 


013701 
V 1 C r u 1 


000006 




MOU 

nu ¥ 


Rl 


•SET NUMBER OF CHARACTERS TO INPUT 


3263 




019703 


177777 




MOU 

nu¥ 


f-1 R9 

9 \ t nc 


•SET MAXIMUM LIMIT ' 

0 Ob 1 nnA^nun bJnx i ^ 


3264 




01970^ 
w 1 c r vij 


000001 




MOV 

nu ¥ 


t1 R3 


■SET MINIMUM LIMIT 


3265 


014134 


004767 


007524 




J^R 
J 0 n 


PC TTR 

r C # 1 in 


•GO GET TURN AROUND STAI L 


3266 


014140 


005067 


000002 


TIMPV * 


fLR 
w L n 


o u ¥ r c 


•CLEAR SHORT CONVERSATION FLAG 


3267 




000907 

UvUCvr 






RTS 

n 1 w 


PC 


; E X I T 


3268 


014146 


000000 




O W V 1 L. " 


0 




•SHORT CONVERSATION FLAG 


3269 
















3270 










.UNIT DESCRIPTION 


POSITIONING SUBROUTINE********** 


3271 

















TH02/TUA5 DATA RELIABILITY PROGRAM 
CZTU1A.P11 07-JUN-78 U:49 

3272 0U15O 000241 

3275 OKI 52 006167 16A470 

3274 0U156 005303 

3275 0U160 001373 

3276 0U162 016700 16AS10 

3277 01A166 056760 164^54 000746 

3278 014174 000207 
3279 



MACV11 30(1046) 



TPOS: 



TP0S1 



CLC 
ROL 
DEC 
BNE 
NOV 
BIS 
RTS 



K. 6 

13-JUN-78 13:40 PAGE 75 



TEHP2 
R3 

TPOS 
UNP.RO 

TEHP2,UN1 (RO) 
PC 



POSITION CHARACTER 

SEE IF DONE 

IF NOT: BR 

LOAD UNIT POINTER 

LOAD CHARACTCR INTO UNl (RO) 

EXIT 



Tn02/TUA5 DATA RELIABILITY PROGRAM HACYll 
C2TUIA.P11 07-JUM-78 U:49 



3280 












3281 
3282 






















3283 












32oA 












3285 












3286 












3287 












3288 












3289 












3290 












3291 












3292 












3293 












3294 












3295 












3296 












3297 












3298 


014176 


005767 


001006 




DSUP: 


3299 


014202 


001401 








3300 


014204 


000445 








3301 


014206 


005767 


164524 




DSO: 


3302 


014212 


001406 








3303 


014214 


005767 


164340 






3304 


014220 


100003 








3305 


014222 


004767 


000714 






3306 


014226 


000207 








3307 


014230 


026767 


164324 


000152 


DSOC: 


3308 


014236 


001014 








3309 


014240 


016703 


164306 






3310 


014244 


042703 


177767 






3311 


014250 


026703 


000136 






3312 


014254 


001404 








3313 


014256 


010367 


000130 






33U 


014262 


004767 


000724 






3315 


0U266 


000207 






DS06: 


3316 


014270 


012703 


027426 




DSOA: 


3317 


014274 


016701 


164260 






3318 


014300 


010167 


000104 






3319 


014304 


062701 


000001. 






3320 


014310 


000241 








3321 


014312 


006101 








3322 


014314 


000171 


002770 






3323 


014320 


032777 


010000 


164210 


DSl: 


3324 


014326 


001410 








3325 


014330 


012702 


002002 






3326 


014334 


012701 


027426 






3327 


014340 


042721 


140300 




DS2: 


3328 


014344 


005302 








3329 


J14346 


001374 








3330 


014350 


004767 


000636 




DS2A: 


3331 


014354 


012702 


002000 




DS3: 


3332 


014360 


012701 


033434 






3333 


014364 


005021 






DS4: 


3334 


014366 


005302 








3335 


014370 


001375 









L 6 
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SEQ 0076 



DATA SETUP ROUTINE: 

THIS ROUTINE IS USED TO GENERATE INTO THE ENTIRE 

WRITE BUFFER (4000 OCTAL CHARACTERS) THE DATA PATTERN 

SELECTED BY THE OPERATOR. THERE ARE 15 (8) FIXED 

DATA PATTERNS AVAILABLE AND ONE SELECTION (DATA PATTERN 0) 

WHICH WILL READ ANY PATTERN PRESENTED AT THE 

HIGH SPEED PAPER TAPE READER. THIS TAPE HUST BE PREPARED 

BY USING THE PROGRAH CALLED DIG. (ZZ-CZTUNAO) 

RANDOM DATA HAY ALSO BE USED VIA CONSOLE 

SWITCH EIGHT (8). 

THIS ROUTINE IS ALSO USED TO CLEAR OUT THE 
READ BUFFER (4000 OCTAL CHARACTERS) BEFORE EACH 
RECORD IS READ. 



T C T 

TST 


RDFL 


SEE IF DID RANDOM DATA 


DCU 


DSO 


IF NOT: BR 


D D 


DSl ; 


ELSE EXIT 


T C T 


ASEQF 


SEE IF AUTO SEQ 




DSOC 


IF NOT: BR 


TCT 


PATRN 


SEE IF AUTO RANDOM 


DDI 


DSOC 


IF NOT: BR 




PC.DATR 


ELSE GO GENERATE RANDOM DATA 


DTC 


PC 


RETURN 




PATRN, PATS 


;SEE IF NEW PATTERN 




DSOA 


'IF SO: BR 


nuv 


UDES,R3 


GET UNIT DESCRIPTION 


D r r 
Die 


#1 77767, R3 


MASK EVEN PARITY 


Cnr 


PARS,R3 


SEE IF SAME AS LAST TIME 


BFQ 


DSOB 


IF SO: BR 


nov 


R3,PARS 


SAVE PARITY 


JSR 


PCCRCLRC 


-GO GENERATE EXPT CRC/LRC 


RTS 


PC 




nov 


fUDATA,R3 ;R3 - ADDRS OF WRITE BUFFER 


nov 


PATRN, Rl ;R1 = PATTERN SELECTOR 


nov 


R1,PATS 




ADD 


«1,R1 :BUMP POINTER 


CLC 






ROL 


R1 


-MAKE PATTERN SELECTOR EVEN 


jnp 


aDATBL(Rl) 


;G0 GENERATE PATTERN 


BIT 


fioooo,aoT 


;SEE IF 7 CH 


BEQ 


DS2A 


■IF NOT: BR 


nov 


#2002, R 2 


;SET BUFFER SIZE 


nov 


fWDATA.Rl 


;SET START OF BUFFER 


BIC 


#140300, (R1)^ 


;MASK FOR 7 CH 


DEC 


R2 


;SEE IF DONE 


BNE 


.DS2 


* I F NOT : BR 


JSR 


PCCRCLRC 


;G0 GENERATE EXPT CRC/LRC 


MOV 


#2000, R2 


;R2=BUFFER SIZE 


MOV 


#RDATA,R1 


;R1=READ DATA START 


CLR 


(R1) + 


;CLEAR BUFFER 


DEC 


R2 


;SEE IF DONE ALL 


BNE 


DS4 


;IF NOT: BR 
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3336 


014372 


016767 


164154 


000012 




MOV 


UDES.PARS 


3337 


014400 


042767 


177767 


000004 




BIC 


#177767. PARS 


3338 


014406 


000207 








RTS 


PC 


3339 


014410 


U7777 






PATS: 


-1 




33A0 


0U412 


000000 






PARS: 


0 




3341 
















3342 












.•EXTERNAL DATA INPUT 


3343 
















3344 


014414 


005767 


000144 




DATO: 


TST 


DOFL 


3345 


014420 


001337 








BNE 


DS1 


3346 


014422 


012767 


000001 


000134 




nov 


fl.DOFL 


3347 


014430 


005077 


164166 






CLR 


apRB 


3348 


014434 


005077 


164160 






CLR 


apRs 


3349 


014440 


005067 


164200 






CLR 


TEnpi 


3350 


014444 


052777 


000001 


164146 


OATOA: 


BIS 


#i,apRS 


3351 


014452 


032777 


000200 


164140 


OATOB: 


BIT 


#200.aPRS 


3352 


014460 


001774 








BEQ 


DATOB 


3353 


014462 


005001 








CLR 


R1 


3354 


01 4464 


117701 


164132 






novB 


aPRB.RI 


3355 


014470 


005767 


164150 






TST 


TEHPI 


3356 


014474 


001012 








BNE 


DATOC 


3357 


014476 


105701 








TSTB 


R1 


3358 


014500 


001761 








BEQ 


DATOA 


3359 


014502 


012767 


000001 


164134 




nov 


#1.TEnP1 


3360 


014510 


010167 


164132 






nov 


R1,TEnP2 


3361 


014514 


010102 








nov 


R1.R2 


3362 


014516 


000167 


177722 






jnp 


DATOA 


3363 


0U522 


110123 






DATOC: 


novB 


R1.(R3)* 


3364 


014524 


005302 








DEC 


R2 


3365 


014526 


001346 








BNE 


DATOA 


3366 


014530 


012701 


027426 




DATOD: 


nov 


fWDATA.RI 


3367 


014534 


016702 


164106 






nov 


TEnP2.R2 


3368 


014540 


112123 






DATOE: 


novB 


(R1>*.(R3)* 


3369 


014542 


022703 


033434 






cnp 


fRDATA,R3 


3370 


014546 


003002 








BGT 


DATOF 


3371 


0U550 


000167 


177544 






jnp 


DS1 


3372 


014554 


005302 






OATOf : 


DEC 


R2 


3373 


014556 


001370 








BNE 


DATOE 


3374 


014560 


000167 


177744 






jnp 


DATOD 


3375 


014564 


000000 






DOFL: 


0 




3376 

















40 PAGE 77 



SEQ 0077 



GET UNIT DESCRIPTION 
nASK PARITY 

EXIT 

PATTERN NUnBER SAVE 



H/S READE<{ (256 CHARACTER HAXinUM) 

SEE IF SHOULD DO EXTERNAL INPUT 

IF NOT: BR 

SET EXTERNAL FLAG 

CLEAR READER BUFFER 

CLEAR READER STATUS 

CLEAR FOR USE AS CHARACTER FLAG 

START READER 

SEE IF DONE 

IF NOT : BR 

CLEAR SAVE LOCATION 

SAVE CHARACTER 

SEE IF HAVE FOUND START CHARACTER 
IF SO : BR 

SEE IF CHARACTER IS 0 
IF SO : BR 

EL;^E SEi CHARACTER FOUND FLAG 

SAVE DATA SIZE 

SAVE DATA SIZE 

60 GET FIRST DATA CHAR 

LOAD BUFFER 

SEE IF READ ALL 

IF NOT : BR 

R1 = START OF WRITE BUFFER 
R2 = SIZE OF DATA FIELD 
REPEAT LOAD OF DATA FIELD 
SEE IF DONE 
IF NOT: BR 
EXIT 

SEE IF AT END OF DATA FIELD 

IF NOT : BR 

ELSE RESTART FILL 

EXTERNAL DATA FLAG=1 IF ALREADY DONE 
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3377 










;ALL 


ONES********** 




3378 
















3379 


014566 


012701 


177777 


DAT1 : 


NOV 


'-I.Rl 


R1=DATA 


3380 


014572 


012702 


002002 


DAT1A: 


NOV 


'2002, R2 


R2=U0RD COUNT *2 


3381 


014576 


010123 




DAT18: 


NOV 


R1,(R3)* 


LOAD BUFFER 


3382 


014600 


005302 






DEC 


«»2 


SEE IF DONE 


3383 


014602 


001375 






BNE 


I/- IB 


IF NOT: BR 


3384 


014604 


000167 


177510 




JNP 


DS1 


RETURN 


3385 
















3386 










;ALL 






3387 
















was 

3388 


014610 


005001 




DAT2: 


CLR 


R1 ;R1=DATA 


3389 


A 4 J ^ 4 1 

014612 


A A A4 d ^ 

000167 


177754 




JNP 


DAT1A .-LOAD BUFFER 


3390 
















3391 










rUALKING ONE********** 




3392 
















WAV 

3393 


014616 


012701 


A A A A A 4 

000001 


DAT3: 


NOV 


#1.R1 ;R1=DATA 


3394 


014622 


000241 






CLC 






3395 


A4 y ^ iy 

014624 


A4 17A*) 

012702 


A A y A A y 

004004 


0AT3A: 


NOV 


«4004,R2 :R2:CHARACTER COUNTS 


W A^ 

3396 


014630 


110123 




DAT3B: 


NOVB 


R1,(R3)t .-LOAD BUFFER 


WA^ 

3397 


014632 


106101 






ROLB 


R1 :SET NEXT CHARACTER 


3398 


A4 y d. Ty 

014634 


AAC T A^ 

005302 






DEC 


R2 :SEE IF DONE 


V TAA 

3399 


014636 


AA4 9^/ 

001374 






BNE 


DAT3B ;IF NOT: BR 


3400 


A 4 y ^ 4 A 

014640 


AAA4 d ^ 

000167 


177454 




JNP 


DS1 iRETURN 


3401 
















3402 














3403 
















A^ 

3404 


A 4 y ^ / ^ 

014644 


A 4 1 ^ A 4 

012701 


A A A 7 ^ y 

000376 


DAT4: 


NOV 


#376, R1 ;R1sSTART OF DATA 


AC 

3405 


A 4 y ^ r A 

014650 


AAA Z 4 

000261 






SEC 






V J A^ 

3406 


A4 J ^ f t 

014652 


AAA4 d ^ 

000167 


177746 




JNP 


DAT3A :L0AD BUFFER 


3407 
















3408 














■w i A A 

3409 
















T / 4 A 

3410 
















341 1 


A4 y A. C d. 

014656 


A 4 1 '7 A 4 

012701 


052525 


0AT5: 


NOV 


#52525, R1 .-RIsDATA 


Ty 4 1 

3412 


A4 y ^ 

014662 


AAA 4 

000167 


4 777Ay 




JNP 


DAT1A .-LOAD BUFFER 


Ty 4 T 

3413 
















3414 














341 5 
















Ty 4 ^ 

3416 


A 4 y £. d. d. 

014666 


A i '1 7A 4 

012701 


\2525Z 


DAT6: 


NOV 


#125252, R1 ;R1=DATA 


Ty 1 7 


014672 


AAA1 d. T 

000167 


4 TT^ T y 

177674 




JNP 


DAT1A 


;LOAD BUFFER 


vy 1 o 














Ty 4 A 

3419 










;ONE/ZERO IN ALTERNATING WORDS********** 


Ty iA 

3420 
















3421 


A 4 y ^ 7Z 

014676 


A 4 '%7A4 

012701 


4 1 C C ■I 

125252 


DAT7: 


NOV 


#125252, R1 


;SET WORD 1 


Ty ^ 1 

3422 


A1 y TA^ 

014702 


A4 ')'9A^ 

012702 


AC 1C ^C 

052525 




NOV 


#52525, R2 


;SET WORD 2 






Oicf 0* 


001 OU^ 




NOV 


#1002, R4 


;SET NUNBER OF ENTRIES 


3424 


014712 


010123 




DAT7A: 


NOV 


R1,(R3)* 


;LOAD WORD 1 


3425 


014714 


010223 






NOV 


R2,(R3)* 


;LOAD WORD 2 


3426 


014716 


005304 






DEC 


R4 


;SEE IF DONE 


3427 


014720 


001374 






BNE 


DAT7A 


;IF NOT: BR 


3428 


014722 


000167 


177372 




JNP 


DS1 


; RETURN 


3429 
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014726 


01^:702 

w 1 c « WC 


004002 

WW^ wwc 


3433 


014732 

V 1 ^ r JC 


012701 

W 1 ( W 1 


000001 

WWWWW 1 


3434 


014736 


000241 

wwwC"V 1 




34 3S 


014740 


012713 

VIC' t J 


177400 

Iff ^ww 


3436 


01(744 


0S0123 

W JW V C 




3437 


014746 


106101 

1 WW 1 w ■ 




3438 


014750 

V 1 ~ r JV 


005302 

WW J JWfc 




3439 


014752 

V 1 ~ r JC 


001372 

WW I J ( c 




3440 


014754 

W 1 ^ r Jt 


000167 

WWW 1 W I 


177340 

Iff w 


3441 








3442 








3443 








3444 


014760 


005001 

WW ^ WW 1 




344 S 


014762 


012702 

W f * Wb 


004004 

w w ~ w w~ 


3446 


014766 


110123 




3447 


014770 


105201 




3448 


014772 


005302 




3449 


014774 


001374 

WW 1 J * ~ 




3450 


014776 


000167 

WWW 1 w * 


177316 


3451 








3452 








3453 








3454 


015002 

W 1 ^ W W w 


012701 


000377 


3455 


01 5006 

W 1 ^www 


012702 

W < • Wfc 


004004 


3456 


015012 

W ■ ^W ■ lb- 


110123 




3457 


015014 


105301 




3458 


015016 


005302 




34 59 


015020 


001374 




3460 


015022 


000167 


177272 


3461 








3462 

Wfc 








3463 








3464 


015026 


012701 


000377 


3465 


01 5032 


000167 

www 1 w • 


177534 


3466 








3467 








3468 








3469 


015036 


012702 


004002 


3470 


01 5042 


012701 


000376 


3471 


01 5046 


000261 




3472 


015050 


010113 




3473 


015052 


042723 


177400 


3474 


015056 


106101 




3475 


015060 


005302 




3476 


015062 


001372 




3477 


015064 


000167 


177230 


3478 
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SEO 0079 



DAT10: 
DAT 1 0A: 



DAT11: 
DAT11A: 



DAT12: 
DAT12A: 



DAT13: 



:UALKING ONE/ALL ONE IN ALTERNATING CHARS**** 



nOV f4002.R2 

MOV fl.Rl 

CLC 

HOV #1 77400, (R3) 

BIS R1,(R3)^ 

ROLB R1 

DEC R2 

BNE DATIOA 

JNP DSl 



;SET BUFFER SIZE 
:SET WALK BASE 

:LOAD ALL ONE BYTE 
:LOAD WALK BYTE 
.-WALK ONE 

:D0 FULL BUFFER 
.-RETURN 



;ALL BITS 0-377********** 



CLR 

HOV 

HOVB 

INCB 

DEC 

BNE 

JHP 



R1 

«4004.R2 

R1,(R3)+ 

R1 

R2 

DAT11A 
DSl 



RI^STARTING DATA 

R2sCHARACTER COUNT+4 

LOAD BUFFER 

BUMP DATA 

SEE IF DONE 

IF NOT: BR 

RETURN 



;ALL BITS 377-0* 



HOV 

HOV 

HOVB 

DECB 

DEC 

BNE 

JHP 



#377, R1 

f4004,R2 

R1,(R3)* 

R1 

R2 

DAT12A 
DSl 



RIsSTARTING DATA 

R2sCHARACTER COUNTS 

LOAD BUFFER 

BUHP DATA 

SEE IF DONE 

IF NOT: BR 

RETURN 



.•ALTERNATING CHARACTERS 0 AND 377< 



HOV 
JHP 



#377, R1 
DAT1A 



;R1 = DATA 
;LOAD BUFFER 



.-WALKING ZERO/ALL ZERO IN ALTERNATING CHARS****** 



DAT14: 


HOV 


#4002, R2 


,-SET BUFFER SIZE 




HOV 


#376, R1 


;SET WALK BASE 




SEC 






DAT14A: 


nov 


R1,(R3) 


;L0AD WALK BYTE 




BIC 


#177400, (R3)> 


.-CLEAR HIGH BYTE 




ROLB 


R1 


;UALK ZERO BIT 




DEC 


R2 






BNE 


DAT14A 


:FILL BUFFER 




JHP 


DSl 


■ : RETURN 
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SEO 0080 


3A79 








;AUT0 SEQUENCE PATTERN********* 


3A80 














3481 


01 >0f 0 


U 1 c rUc 


000400 DAT15: 


nov 


#400, R2 ; 


SET NUHBER OF ENTRIES 


3482 


01 j\JfH 


ni 07ni 
01 cf 01 


015122 DAT15A: 


NOV 


#APATS.R1 


SET START OF PATTERN 


3A83 


0 0 1 UU 


ni 37nz. 

0 1 c r 0<i 


000010 


nov 


#10. R4 


SET SIZE OF PATTERN 


348A 


ni cm/, 

U 1 J 1 Um 


ni 31 3T 
0 1 C 1 C3 


DAT 158 : 


nov 


(R1)+.(R3)* ; 


FILL BUFFER 


3485 


0131 00 


nncTn/, 

00330*1 




DEC 


R4 


SEE IF DONE PATTERN 


3A86 


ni ci 1 n 


001 T7C 
UU 1 3 r 3 




BNE 


0AT15B 


IF NOT: BR 


3487 


U 1 J 1 1 c 


nocT03 

0033UC 




DEC 


R2 


SEE IF DONE BUFER 


3488 




001 

00 1 30r 




BNE 


DAT15A 


IF NOT: BR 


3489 


VI J 1 1 o 


0001 A7 


177176 


JNP 


DS1 


RETURN 


3490 


01 CI 00 


000000 


APATS: 


0 






3491 


M K^ OL 


1 77A00 


r 


1 77400 






3492 


ni CI 3A 

0131 CO 


000X77 
0003 r f 




377 






3493 


ni CI x(\ 

013 1 j\i 


ooooon 
ooouuo 




0 






3494 


ni CI 13 

013 1 3c 


1 77777 

\ 1 1 1 1 1 




-1 






3495 


m CI XL 

013 1 3** 


nnni77 

0003' r 




377 






3496 


ni CI 

0131 30 


1 77/.nn 




1 77400 






3497 


ni ci^n 


1 nm 
\ 1 1 1 1 1 




-1 






3498 














3499 








; RANDOM 




3500 














3501 


m ci^3 

U 1 3 1 He 


ni A70^ 


163410 DATR: 


nov 


FnCNT.RA 


;SET NUnBER OF FRAnES 


3502 


ni ci^A 

U 1 3 1 10 


01 37nx 

U 1 c ' U3 


027426 


nov 


#UDATA,R3 


;SET ADDRESS OF START OF BUFFER 


3503 


m CI C3 

U 1 3 1 3c 


ni 37ni 


177777 


nov 


#-1,R1 


;SET HIGH LiniT 


3504 


ni CI CA 


oocon? 




CLR 


R2 


;SET LOW LiniT 


3505 


01 CI AO 


WM f U f 


006446 DATRO: 


JSR 


PC. RANG 


;G0 GENERATE NUMBER 


3506 


015164 


016723 


163436 


nov 


RANSAV,(R3)«^ 


;LOAD BUFFER 


3507 


015170 


005204 




INC 


R4 


;SEE IF DONE WHOLE BUFFER 


3508 


015172 


001372 




BNE 


DATRO 


;IF NOT: BR 


3509 


015174 


004767 


177120 


JSR 


PC ,DS1 


;G0 CHECK FOR 7 CH 


3510 


015200 


012767 


000001 000002 


nov 


#1,RDFL 


:SET RANDOM DATA FLAG 


3511 


015206 


000207 




RTS 


PC 


;EXIT 


3512 


015210 


000000 


RDFL: 


0 




.RANDOM DATA SELECT FLAG 
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5513 
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3515 
3516 
3517 
3518 
3519 
3520 
3521 
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:CRC/LRC CHARACTER BUILD; 

;THIS ROUTINE WILL CONSTRUCT AND SAVE THE EXPECTED 
:CRC AND LRC CHARACTERS ACCORDING TO DATA AND 
.RECORD SIZE IF OPERATING IN NRZ MODE 



3522 


015212 


016700 


163540 




CRCLRC: 


nov 


FHCNT.RO 


;SET RECORD SIZE 


3523 


015216 


005400 








NEG 


RO 




3524 


015220 


012701 


027426 






nov 


fWDATA,R1 


;SET START OF BUFFER 


3525 


015224 


005067 


000546 






CLR 


XORS 




3526 


015230 


111104 






CLO: 


novB 


(R1 ) ,R4 


:GET CHARACTER 


3527 


015232 


004767 


000166 






JSR 


PC, CLP 


;G0 GET PARITY OF CHARACTER 


5528 


015236 


004767 


000510 






JSR 


PCXOR 


k/AA J>llAAA^VPA 

;XOR CHARACTER 


5529 


015242 


000241 








CLC 






3S30 


015244 


006004 








ROR 


R4 


;ROTATE 1 RIGHT 


3531 


015246 


103014 








BCC 


CL2 


:IF NO CARRY: BR 


3532 


015250 


052704 


000400 






BIS 


f400,R4 


:SET BIT NINE 


3533 


015254 


000241 








CLC 






3534 


015256 


010405 






CL1 : 


HOV 


R4,R5 


:SAVE CHARACTER 


3535 


015260 


042705 


177703 






BIC 


#177703, R5 




3536 


015264 


.005105 








con 


A P 

R5 




3537 


015266t 


042705 


177703 






BIC 


m4 "V^^AV AP 

#1 77703, R5 




3538 


015272 


A » «\ ^ A t 

042704 


A A A A^ / 

000074 






BIC 


#74, R4 


;COnPLinENT BITS 2,3,4,5 


3539 


015276 


A^ A ^ A i 

050504 








BIS 


A f Ay 

R5,R4 


3540 


015300 


010467 


A A A'^^'^ 

000272 




CL2: 


nov 


R4,X0RS 




3541 


01 5304 


005300 








DEC 


A A 

RO 




3542 


015306 


A A 4 J A t 

001402 








6EQ 


CLLAST 


:Ir LAST CHARACTER: BR 


3545 


015310 


000167 


177714 






jnp 


CLO 


;6ET NEXT 


5544 


015314 


016704 


000256 




CLLAST: 


nov 


waa#^ Ay 

X0RS,R4 




5545 


015320 


005167 


000252 






con 


XORS 




5546 


015324 


042767 


« Af A 

177050 


000244 




BIC 


#177050, XORS 


. tf^ AM Al V MP UT All A J IT AtTC TOC 

;COnPLinENT ALL BUT BITS 3S5 


5547 


015352 


A 1 t ^ A M 

042704 


177727 






BIC 


#1 77727, R4 


5548 


01 5336 


050467 


000234 






BIS 


R4,X0RS 




5549 


015342 


016767 


A A A 1 9 A 

000230 


AA A*%9 A 

000230 




nov 


XORS,EXCRC 


.C*AllP PWAP#*TPA 

;SAVE EXPECTED CRC 


5550 


015550 


016700 


163202 






nov 


FnCNT ,R0 




5551 


015354 


A A f ^ A A 

005400 








NEG 


n A 

RO 




5552 


015556 


012701 


027426 


■ 




nov 


#UDATA,R1 


;D0 EXPT LRC 


3553 


013362 


AACAA7 

00506 r 


AAA31 A 

OOOc lU 






n D 
CLR 


VADC 




5554 


015566 


111104 






CL3: 


novB 


(R1),R4 




5555 


015570 


004767 


000030 






JSR 


PC, CLP 


;GET PARITY 


5556 


015574 


004767 


000152 






JSR 


PCXOR 


:XOR CHARACTER 


5557 


015400 


005300 








DEC 


RO 




5558 


015402 


001371 








BNE 


CL5 


:D0 ALL FOR LRC 


5559 


015404 


016704 


000170 






nov 


EXCRC,R4 




5560 


015410 


004767 


000156 






JSR 


PCXOR 


:XOR CRC TO DATA 


5561 


015414 


016767 


000156 


000160 




nov 


XORS,EXLRC 


.-SAVE EXPT LRC 


5562 


015422 


000207 








RTS 


PC 


.•RETURN 


5565 


015424 


005704 






CLP: 


TST 


R4 


;SEE IF 0 CHAR 


5564 


015426 


001010 








BNE 


CLPE 


:IF NOT: BR 


5565 


015450 


052767 


000010 


163114 




BIT 


#10,UDES 


:SEE IF EVEN PARITY 


5566 


015436 


001404 








BEO 


CLPE 


:IF NOT: BR 


3567 


015440 


012704 


000420 






nov 


#420, R4 


;SET 0 CHAR EVEN PARITY 


5568 


015444 


005201 








INC 


R1 


:BUnP POINTER 















E 


7 


-r- 

• 
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SEQ 0082 


3569 


015AA6 


000207 






D T C 


• 

PC 






RETURN 


3570 


015A50 


005067 


000130 


CLPt : 


r 1 D 
CLn 


D A D r U T 






CLEAR BIT COUNTER 


3571 


015A5A 


012703 


000010 




nuv 


VTU.K J 






SET NUMBER OF BITS 


3572 


015A60 


032704 


000001 


CLPO: 


D t T 


ill D/. 






SEE IF ONE BIT 


3573 


01 5A6A 


001402 








LLr 1 






IF NOT: BR 


357A 


015A66 


005267 


000112 




INC 








BUMP COUNTER 


3575 


015A72 


000241 




CLPl : 


CLt 










3576 


015474 


006004 






ROr 


D/ 

Rh 




.ROTATE TO NEXT BIT 


3577 


015476 


005303 






Dec 


R J 








3578 


015500 


001367 






Due 


ri DA 
CLPO 




; CONTINUE FOR ALL BITS 


3579 


015502 


112104 






novB 


/ D1 \ X D/ 








3580 


015504 


042704 


177400 




BIC 


#T r rHOU.KH 








3581 


015510 


032767 


000001 000066 




BI 1 


• 1 , r ANCN 1 






■SEE IF ODD NUMBER OF ONE BITS 


3582 


015516 


001005 






Due 


1 1 DO 






■IF SO: BR 


3583 


015520 


032767 


000010 163024 




O f T 

BIT 


ffTU,UUCd 






;SEE IF SHOULD BE EVEN PARITY 


3584 


015526 


001406 






Bcvl 


^ 1 D^ 

CLP3 






;IF NOT: BR 


3585 


015530 


000207 






RTS 


Br 

PC 






;ELSE EXIT 


3586 


015532 


032767 


000010 163012 


CLPe: 


BIT 

BIT 


aiA ||i\CC 






;SEE IF SHOULD BE ODD PARITY 


3587 


015540 


001001 






BNc 


n B^ 
CLPj 






;IF NOT: BR 


3588 


015542 


000207 






D T C 


or 






;ELSE EXIT 


9 f a A 

3589 


015544 


A f ^ ^ A 1 

052704 


000400 . 


CLP^: 


D f C 

si a 


»*»UU,Rh 






;SET PARITY BIT 


3590 


015550 


A A A ^ A^ 

000207 






DT C 

K 1 a 


or 
rC 








3591 


015552 


010446 




XOR: 


nuv 


DZ. - / CO \ 








3592 


015554 


046716 


000016 




B t ^ 

Bit 


VADC /co\ 
XORa < var; 








3593 


015560 


040467 


000012 




Die 


K*l,XUKa 




:XOR SUBROUTINE: R4 WITH XORS 


3594 


015564 


052667 


000006 




QIC 

Ola 


#CD\4 vnDC 
1 ar j ▼ , aUKs 








3595 


015570 


A « ^ ^ A i 

016704 


000002 




nov 


tfADC DA 








3596 


015574 


000207 






BTC 

RTS 


Br 

PC 








3597 




















3598 


015576 


000000 




XORS : 


U 








;XOR SAVE 


3599 


01 5600 


000000 




c V r or • 


A 

U 








.•EXPECTED CRC 


3600 


015602 


000000 




EXLRC: 


0 








.•EXPECTED LRC 


3601 


015604 


000000 




PARCNT 


: 0 








.-PARITY COUNTER 


3602 
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3603 
3604 
360S 
3606 
3607 
3608 
3609 
3610 
3611 
3612 
3613 
36U 
3615 
3616 
3617 



3618 


015606 


005067 


163046 




DCHK: 


36 1 9 


015612 


005067 


4 £. TA^A 

163070 






3620 


015616 


A4 ^ 7 AC 

016705 


162734 






3621 


015622 


032767 


AAAA 1 A 

000020 


162722 




3622 


A1 VA 


AA4 i A^ 

001402 








TX ^ T 

3623 


A4 CXT^ 


AAA 1X1 

000261 








3624 


A1 

013634 


AAX. AAC 

006005 








362 S 


A4 

015636 


A4 17A4 

012701 


A*)?/ 'id. 

027426 




DCHKO: 


TX OA 

3626 


015642 


Ai O^AO 

012702 


ATT/ Ti 

033434 






TX 

3627 


01 7646 


032767 


AAAA1 A 

00001 0 


i £. lA 

162676 




3628 


01 7654 


AAi / TA 

001430 








vx oo 
3629 


A1 C A C A 

01 7676 


032767 


AAAA'^A 

000020 


162666 




TA TA 

3630 


A1 CAAy 

01 5664 


AAi AI/ 

001024 








3631 


A4 CAAA 

01 7666 


032767 


AAOAAA 

002000 


16£656 




3632 


Ai CA7y 

01 5674 


AAi AOA 
001020 








3633 


A1 C A 7A 

01 5676 


i AC7i i 

105f 11 






DFOr : 


3634 


Ai C7AA 
01 5700 


AAi y A/ 

001 h04 








3633 


Ai C7A0 

01 5rU^ 


AAC OAi 

005^01 








3636 


AI C7A/. 

01 5rU^ 


AAC OAC 






n t Ac ■ 

DrOc : 




V 1 7 r wO 


UU 1 jr 7 








3638 


015710 


000406 








3639 


015712 


112721 


000020 




DFOD: 


3640 


015716 


012767 


mm 


176464 




3641 


015724 


000767 








3642 


015726 


016705 






OFOC: 


3643 


015732 


012701 


027426 






3644 


015736 


032767 


010000 


162616 


DFOCO: 


3645 


015744 


001462 








3646 


015746 


016704 


162604 




DF08: 


3647 


015752 


005404 








3648 


015754 


032767 


000020 


162570 




3649 


015762 


001402 








3650 


015764 


000241 








3651 


015766 


006004 








3652 


015770 


060401 






DFOBO: 


3653 


015772 


060402 








3654 


015774 


032767 


000001 


16255<i 




3655 


016002 


Obi 401 








3656 


016004 


105722 








3657 


016006 


032767 


000020 


162536 


OF OA: 


3658 


016014 


001431 
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t******t*****t****t*t«***«******************** ••••••• 

DATA CHECK SUBROUTINE: 

THIS SUBROUTINE IS USED TO COMPARE EACH CHARACTER 
OF DATA R^AD FROM TAPE UITH THE EXPECTED CHARACTER. 
ANY ERROR DETECTED WILL CAUSE CONTROL TO BE 
PASSED TO AN ERROR PRINT SUBROUTINE AND A 
SUBROUTINE TO ACCUMULATE THE NUMBER OF BITS 
DROPPED AND PICKED UP FROM EACH CHARACTER. 
THE NUMBER OF READ ERRORS IS ALSO ACCUMULATED. 
DATA CHECKING MAY BE TERMINATED BY USE OF 
CONSOLE SWITCH THIRTEEN (13). 
********************************** t 



CLR 


BBC 


CLEAR BAD RECORD CNTR 


CLR 


DERFL 


CLEAR DATA ERROR FLAG 


MOV 


FMCNT,R5 


LOAD CHAR COUNT 


BIT 


#20,UDES 


SEE IF CORE DUMP 


BEQ 


DCHKO 


IF NOT: BR 


SEC 






ROR 


R5 


R5 = FC/2 


MOV 


«UDATA,R1 


SET WRITE DATA ADDR 


MOV 


«RDATA,R2 


SET READ DATA ADDR 


BIT 


flO.UDES 


■SEE IF EVEN PARITY 


BEQ 


DFOCO 


IF NOT: BR 


BIT 


#20.UDES 


■SEE IF CORE DUMP PARITY 


BNE 


DFOCO 


;1F SO: BR 


BIT 


#2000, UDES 


;SEE IF PE MODE 


BNE 


DFOCO 


■IF SO: BR 


TSTB 


(R1) 


;SEE IF 0 CHAR 


BEQ 


DFOD 


IF SO: BR 


INC 


R1 


BUMP POINTER 


INC 


R5 


-SEE IF DONE 


BNE 


DFOF 


■IF NOT: BR 


BR 


DFOC 


;ELSE CONTINUE 


MOVB 


#20, (RD* 


;SET 20 IN PLACE OF 0 


MOV 


#-1,PATS 


;SET PATTERN GENERATE FLAG 


BR 


DFOE 




MOV 


FMCNT.R5 


■RESET CHAR CNT 


MOV 


#UDATA,R1 


■RESET DATA ADDRESS 


BIT 


#10000. RDCMD 


■SEE IF READ REVERSE 


BEQ 


DFO 


■IF NOT: BR 


MOV 


FHCNT,R4 


;6ET FRAME COUNT 


NEC 


R4 


;SET TO WHOLE NUMBER 


BIT 


#20, UDES 


■SEE IF CORE DUMP 


BEQ 


DFOBO 


IF NOT: BR 


CLC 






ROR 


R4 


SET TO FC/2 


ADD 


R4,R1 


POINT TO START OF WRITE DATA 


ADD 


R4,R2 


POINT TO START OF READ DATA 


BIT 


#1,FMCNT 


;SEE IF ODD FRAME COUNT 


BEQ 


DFOA 


■IF NOT: BR ' 


TSTB 


(R2)* 


;BUHP POINTER 


BIT 


#20, UDES 


SEE IF CORE DUMP 


BEQ 


DF0A4 


IF NOT: BR 
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SEQ 0084 


3659 


016016 


000741 






CLC 






3660 


w 1 UVC V 


1 ^7747 


000001 




BITB 


#1.-(R2) ;SEE IF BIT 0 * 1 


3661 


0160?4 


001401 






BEQ 


DFOAO ;IF NOT: Bft 


3662 


016076 


000761 






SEC 






3663 


0160^0 


106017 




DFOAO: 


RORB 


(R2) 




3664 


0160'^7 


000741 

wwwC"t 1 






CLC 






3665 


016J14 


137712 


000001 




BITB 


#1 .(R2) 




3666 


016040 


001401 

VW 1 ~ W 1 






BEQ 


DF0A1 




3667 


016042 


000761 






SEC 






3668 


016044 


106012 

1 VwV 1 c 




DF0A1 : 


RORB 


(R2) ; POSITION BITS FOR REVERSE CORE DUMP 


3669 


016046 


000241 

WWWt~ 1 






CLC 






3670 


016050 


132712 


000001 




BITB 


#1 , (R2) 




3671 


016054 


001401 

WW ■ ^ w ■ 






BEQ 


DF0A2 


• 


3672 


016056 


000261 






SEC 






3673 


016060 


106012 




DF0A2: 


RORB 


(R2) 




3674 


016062 

V ■ WWWw 


000241 

WWWfc^ 1 






CLC 






3675 


01 6064 


132712 


000001 




BITB 


#1 , (R2) 




3676 


016070 


001401 






BEQ 


DF0A3 




3677 


016072 


000261 

WWWfcW 9 






SEC 






3678 


016074 


106012 




Df0A3: 


RORB 


(R2) 




3679 


016076 


005202 

WW Wb 






INC 


R2 


A r P P T A A t U T r A 

RESET POINTER 


3680 


016100 

V > W ■ WW 


124142 




DF0A4: 


CNPB 


-(R1),-(R2) 


TEST DATA CHARACTER 


3681 


016102 


001010 

WW 1 W 1 w 






6NE 


DF1 


IF NOT GOOD: BR 


3682 


016104 


105067 


162550 




CLRB 


BBC 


1*1 PAn AAA Af /^AAA ^AIIAlTPA 

CLEAR BAD RECORD COUNTER 


3683 


016110 


000411 






BR 


DF2 




3684 


016112 


122122 




DFO: 


CHPB 


iRl)*,(R2)* 


CHECK DATA 


3685 


016114 


001003 






BNE 


DF 1 


tC ASA. AA 

;Ir BAD: BR 


3686 


016116 


105067 


162536 




CLRB 


BBC 


.^1 PAA AAA AP^AAA ^klTA 

; CLEAR BAD RECORD CNTR 


3687 


016122 


000404 






BR 


DF2 




3688 


016124 


004767 


000632 


DF1 : 


JSR 


A^ A A A V C 

PCORPKr 


^ A T A A AAP A AlA A t P W C 

GO ucT DROrS AND PICKS 


3689 


016130 


004767 


000066 




JSR 


PCOERR 


GO DO PRINT 


3690 


016134 


005205 




DF2: 


INC 


R5 


■BUMP CHAR CNTR 


3691 


016136 


001405 






BEQ 


DF3 


■IF DONE ALL: BR 


3692 


016140 


032767 


010000 162414 




BIT 


#10000,R0CnD 


-SEE IF READ REVERSE 


3693 


016146 


001761 






BEQ 


DFO 


;IF NOT: BR 


3694 


016150 


000716 






BR 


DFOA 


;ELSE CONTINUE READ REV 


3695 


016152 


005067 


162510 


DF3: 


CLR 


HDRFL 


; CLEAR HEADER FLAG 


3696 


0161 56 


005767 


162524 




TST 


DERFL 


;SEE IF HAD DATA ERROR 


3697 


016162 


001416 






BEQ 


DFX 


;IF NOT: BR 


3698 


016164 


005767 


162520 




TST 


SERFL 




3699 


016170 


001013 






BNE 


DFX 


;IF NOT DATA ERROR ONLY: BR 


3700 


016172 


016704 


162500 




nov 


UNP R4 




3701 


016176 


032767 


010000 162356 




BIT 


#iodoo,RDcnD 


■SEE IF READ REVERSE 


3702 


016204 


001003 






BNE 


DF4 


■IF SO: BR 


3703 


016206 


005264 


001130 




INC 


DATER1(R4) 


■BUMP DATA ERROR FORWARD COUNTER 


3704 


016212 


000402 






BR 


DFX 




3705 


016214 


005264 


001170 


DF4: 


INC 


DEREV1(R4) ;BUnP REVERSE DATA ERROR 


3706 


016220 


000207 




DFX: 


RTS 


PC .-EXIT 


3707 
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3708 

3709 

3710 

3711 

3712 

3713 

37U 

3715 

3716 

3717 

3718 

3719 

3720 

3721 

3722 

3723 

3724 

3725 

3726 

3727 

3728 

3729 

3730 

3731 

3732 

3733 

3734 

3735 

3736 

3737 

3738 

3739 

3740 

3741 

3742 

3743 

3744 

3745 

3746 

3747 

3748 

3749 

3750 

3751 

3752 

3753 

3754 

3755 

3756 

3757 

3758 

3759 

3760 

3761 

3762 

3763 
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SEO 0085 



DATA ERROR SUBROUTINE: 

THIS SUBROUTINE IS USED TO PRINT OUT ANY 

ERRORS FOUND DURING THE DATA CHECK. 

EACH CHARACTER FOUND BAD WILL BE PRINTED 

IN BIT FORMAT ALONG WITH ITS EXPECTED CHARACTER. 

AN ERROR HEADER CONSISTING OF THE UNIT NUMBER, 

BLOCK NUMBER, RECORD NUMBER, SIZE OF RECORD. AND 

ERROR TYPE (READ FORWARD, READ REVERSE, WRITE. ETC) 

IS PRINTED ONLY ONCE FOR EACH RECORD FOUND BAD. 

A COUNT IS HADE OF THE NUMBER OF SUCCESSIVE BAD 

CHARACTERS, AND IF TEN (10) SUCCESSIVE BAD CHARACTERS 

ARE FOUND IN A SINGLE RECORD, A MESSAGE INDICATING 

A BAD RECORD CONDITION IS PRINTED AND THE NEXT 

TWENTY (20) CHARACTERS ARE SKIPPED BEFORE CHECKING 

IS RESUMED. IF THE BAD RECORD CONDITION IS FOUND 

THREE TIMES IN A RECORD, ALL REMAINING DATA IS 

SKIPPED EXCEPT THE FINAL TEN (10) CHARACTERS. 

THIS SKIPPING IS OF COURSE ONLY POSSIBLE IN 

RECORDS WHICH CONTAIN A SUFFICIENT NUMBER OF CHARACTERS. 

PRINTING OF ERRORS MAY BE DISALLOWED AT ANY TIME 

BY SETTING CONSOLE SWITCH TEN (10) TO A ONE. 

THE OPERATOR MAY CAUSE THE PROGRAM TO HALT ON ANY ERROR 

BY SETTING CONSOLE SWITCH FIFTEEN (15) TO A ONE. 

t*****«*****t***********«** ************************** 



016222 


032777 


002000 


162356 


DERR: 


BIT 


f2000,aswR 


:SEE IF SHOULD PRINT 


ERRORS 


016230 


001402 








BEQ 


DERRO 


:IF. SO: BR 




016232 


000167 


000172 






JHP 


DERR4 


;ELSE SKIP PRINT 




016236 


005267 


162430 




DERRO: 


INC 


PFLG 


;SET PRINT FLAG 




016242 


005767 


1624?0 






TST 


HDRFL 


;SEE IF HAVE PRINTED 


HEADER 


016246 


001010 








BNE 


DERROA 


;IF SO: BR 




016250 


004767 


004724 






JSR 


PC.PAPRT 


;PRINT CYCLE NUMBER 




016254 


012704 


024724 






MOV 


fMSG1,R4 


;LOAD ERROR MSG ADDR 




016260 


004767 


005636 






JSR 


PC.TTOUT 


.'PRINT ERROR 




016264 


004767 


003066 






JSR 


PC.FRPRT 


.•PRINT F OR R 




016270 


012704 


024743 




DERROA: 


MOV 


fMSG4,R4 






016274 


004767 


005622 






JSR 


PC.TTOUT 


:PRINT CHAR NO. HEADER 


016300 


010203 








MOV 


R2,R3 






016302 


162703 


033434 






SUB 


fRDATA,R3 


.-POINT TO CHAR 




016306 


005303 








DEC 


R3 






016310 


032767 


010000 


162244 




BIT 


#10000. RDCMD 


;SEE IF READ REVERSE 




016316 


001402 








BEO 


DERROB 


;IF NOT: BR 




016320 


010503 








MOV 


R5,R3 


:GET CHAR NUMBER 




016322 


0051.03 








COM 


R3 






016324 


004767 


005744 




DERROB: 


JSR 


PCOCTP 


; PRINT CHAR NUMBER 




016330 


012704 


024731 






MOV 


fMSG2,R4 






016334 


004767 


005562 






JSR 


PCTTOUT 


;PRINT EXPECTED DATA 




016340 


032767 


010000 


162214 




BIT 


#10000, RDCMD 


.-SEE IF READ REVERSE 




016346 


001402 








BEQ 


DERROC 


;IF NOT: BR 




016350 


111103 








MOVB 


(R1),R3 


:GET CHAR 




016352 


000401 








BR 


DERROD 






016354 


114103 






DERROC: 


MOVB 


-(R1),R3 


.-LOAD EXPECTED DATA 




016356 


004767 


006132 




DERROD: 


JSR 


PCDOUT 


;G0 PRINT CHAR 
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SEQ 0086 



376A 


016362 


012704 


024736 






nov 


«NSG3,R4 


PRINT RECIEVED DATA 


3765 


016366 


004767 


005530 






JSR 


PC, T TOUT 


3766 


016372 


032767 


010000 


162162 




BIT 


flOOOO.RDCHD 


tf*PP VP nPAA AP>jPAf*P 

SEE IF READ REVERSE 


3767 


016A00 


001402 








BEQ 


DERR1 ; 


V P KlAT A A 

IF NOT: BR 


3768 


016A02 


111203 








novB 


(R2),R3 


GET CHAR 


3769 


016A0A 


000401 








BR 


0ERR2 




3770 


016A06 


114203 






DERR1 : 


novB 


-(R2) .R3 




3771 


016A10 


004767 


006100 




DERR2: 


JSR 


PCDOUT 


PRINT BAD CHAR 


3772 


016AU 


032767 


010000 


162140 




BIT 


M4AAAA t^W^ BBIk 

#10000, RDCHD : 


f^PP VP APAA APKFACF 

SEE IF READ REVERSE 


3773 


016422 


001401 








BEQ 


DERR3 : 


IF SO: BR 


377A 


016424 


000401 








BR 


DERR4 




3775 


016426 


122122 






DERR3: 


CBPB 


(R1)*,(R2)* ; 


RESET POINTERS 


3776 


016430 


105267 


162224 




DERR4: 


INCB 


BBC ; 


Al IMA AAA AC ^ AAA ^ Ai T A 

BUHP BAD RECORD CNTR 


3777 


016434 


122767 


000010 


162216 




CHPB 


#10, BBC ; 


PPP VP Al A ATU 

SEE IF BLD BTH 


3778 


016442 


001 1 24 








BNE 


DEREX ; 


VP ftlAT^ AA 

IF NOT: BR 


3779 


016444 


032777 


002000 


162134 




BIT 


#2000. asuR , 


PPP VP AAtAIT ff AIU ff n ff T 

SEE IF PRINT INHIBIT 


3780 


016452 


001004 








BNE 


1 • 


VP PA. A A 

IF SO: BR 


3781 


016454 


012704 


025057 






ROV 


#HSG15,R4 




3782 


016460 


004767 


005436 






JSR 


PCTTOUT , 


AAVkiT Al A T l_l 

PRINT BLD BTH 


3783 


016464 


105067 


162170 




IS: 


CLRB 


BBC 


APPPT AAK At^AAA ^AlTA 

RESET BAD RECORD CNTR 


378A 


016470 


000367 


162164 






SWAB 


BBC 


AAC ff T ff AAI Al A ATU AMAl lAlT 

POSITION BLD BTH AnOUNT 


3785 


016474 


105267 


162160 






INCB 


BBC 


Al iMA AMAIIAlT 

BUHP AMOUNT 


3786 


016500 


122767 


000003 


162152 




CHPB 


M 9 AA ^ 

#3, BBC 


PPP ffP UAA T BlA ATUP 

SEE IF HAD 5 BLD BTHS 


3787 


016506 


101054 








BHI 


P A A i A 

DERR4B 


.VP AlAT . AA 

;IF NOT: BR 


3788 


016510 


000367 


162144 






SUAB 


BBC 


APAAP t T t AftI A A P 

'REPOSITION BBC 


3789 


016514 


022705 


177767 






CUP 


#177767*R5 


. C P P t P AAI 1 ACT Ptr'LIT ^LIADC 

;SEE IF ON LAST cIuHT CHARS 


3790 


016520 


101473 








BLOS 


l« i" A A ^ 

DERR6 


;IF SO: BR 


3791 


016522 


012705 


4 ^^^^ ^ 

177767 






HOV 


f 177767, R5 


-^PT /*1JAA ^AiTA TA tt 

;ScT CHAR CNTR TO o 


3792 


016526 


032767 


A 4 MAMA 

010000 


4 ^ t A ^ 

162026 




BIT 


f 10000, RDCHD 


;Scc IF READ REVcRSc 


3793 


016534 


001416^ 
012701 








BEQ 


A r A A / A 

DcRR4A 


. ff P AAAT « BA 

; I F NOT : BR 


3794 


016536 


027426 






HOV 


ill lA ATA b4 

fUDATA,R1 


;6cT START Or oUPrcR 


3795 


016542 


012702 


033434 






HOV 


#RDATA,R2 


;GET START OF BUFFER 


3796 


016546 


062701 


A A A A 4 A 

000010 






ADO 


M 4 A A 4 

#10, R1 


;rOIHT TO 5TARI tIO 


3797 


016552 


062702 


A A A A 4 A 

000010 






a A A 

ADD 


MIA n ^ 

#10, R2 


3798 


016556 


032767 


A A A A A 4 

000001 


161772 




BIT 


#1 ,FHCNT 


;SEE IF ODD FRAME COUNT 


3799 


016564 


001453 








BEQ 


A P A i* W 

DEREX 


;IF NOT: BR 


3800 


016566 


105722 








TSTB 


i A^ \ ^ 

(R2)* 


• Bl IMA BAt4ITCCk 

;BUnP rOINTcR 


3801 


016570 


000451 








BR 


DEREX 


.1 AAA rUAD rAIIAlT 

;LOAD CHAR COUNT 


3802 


016572 


016767 


4 ^ 4 ^ A 

161760 


4 ^ 1 A J J 

162044 


DERR4A: 


HOV 


FHCNT.TEHPl 


3803 


016600 


005167 


4 ^ 1 A y A 

162040 






COH 


T P MA 4 

TEHPl 




380A 


016604 


005267 


4 M tAT i 

162034 






INC 


T P MA 4 

TEHPl 


• AAfUT TA DIICCCD _0 

;P01NT TO BUPrtK -o 


3805 


016610 


162767 


A A A A 4 A 

000010 


162026 




SUB 


Jl 4 A T C M A4 

#10, TEHPl 


3306 


016616 


016701 


4 M t A 1 1 

162022 






HOV 


▼ P M A 4 A 4 

TEHPl ,R1 


;POINT TO NEXT CHAR 


3807 


016622 


062701 


027426 






ADD 


Ml lA A ▼ A A 4 

#UDATA,R1 


.AAfuT TA UCVT LIDtTC TUAD 

;POINT TO NcXT WRIIC CHAR 


3808 


016626 


&16702 


4 M '%A4 t 

162012 






NOV 


VPMA4 A^ 

TEHPl ,R2 


.AAtUT TA CUA AC DCAA AATA 

;POINT TO cND OF RcAD DATA 


3809 


016632 


062702 


AW M ^ M 

033434 






ADD 


JIAA ATA A^ 

fRDATA,R2 


.AAffUT TA UCVT rUAD 

; POINT TO NtXT CHAR 


3810 


016636 


000426 








A A 

BR 


DEREX 


• C V ff T 

;cXiT 


3811 


016640 


000367 


4 M. ^A4 i 

162014 




p A A / n 

DERR4B: 


SUAB 


A A ^ 

BBC 


.•REPOSITION BBC 


3812 


016644 


000241 








CLC 






3813 


01 6640 














38H 


016652 


103416 








BCS 


DERR6 


:IF EXCEED RECORD SIZE: BR 


3815 


016654 


032767 


010000 


161700 




BIT 


#10000,RDCnD 


.SEE IF READ REVERSE 


.3816 


016662 


001405 








BEQ 


DERR5 


:IF NOT: BR 


3817 


016664 


162701 


000024 






SUB 


#24, R1 


.RESET POINTERS 


3818 


016670 


162702 


000024 






SUB 


#24, R2 


3819 


016674 


000407 








BR 


DEREX 





Tn02/TU4S DATA RELIABILITY PROGRAM MACY11 
CZTUIA.P11 07-JUN-78 U:A9 

3820 016676 062701 000024 DERR5: 

3821 016702 062702 000024 

3822 016706 000402 

3823 016710 012705 177777 DERR6: 

3824 016714 032777 100000 161664 DEREX: 

3825 016722 001412 

3826 016724 000000 

3827 016726 005767 161740 

3828 016732 001006 

3829 016734 032777 002000 161644 

3830 016742 001002 

3331 016744 000167 177266 

3832 016750 005067 161716 DEREXI 

3833 016754 005267 161726 

3834 016760 000207 
3835 



J 7 

30(1046) 13-JUN-78 13:40 PAGE 87 

SEQ 0087 



Ann 


#24. R1 


SKIP 20 CHARS 


ADD 


f24,R2 .-SKIP FORWARD 20 CHARS 


RR 

on 


np BP y 




nov 




•CPT TO PHD 


BIT 

DA* 


#100000 asuR 




BEQ 


DEREXI 


■IF MOT* BR 


HALT 






TST 


PFLG 


•SEE IF PRINTED 


BNE 


DEREXI 


'IF SO : BR 


BIT 


#2000. asuR 


■SEE IF SHOULD PRINT 


BNE 


DEREX1 


IF NOT: BR 


JNP 


DERRO 


■ELSE PRINT 


CLR 


PFLG 


■CLEAR FLAG 


INC 


DERFL 


-BUMP DATA ERROR FLAG 


RTS 


PC 


■RETURN 



K 7 
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CZTUIA.Pll 07-JUIII-78 14:49 SEQ 0088 

3836 

3837 ;* ****** 

3838 .-DROPS AND PICKS SUBROUTINE: 
3839 

3840 :THIS SUBROUTINE IS USED TO ACCUMULATE FROM 

3841 :EACH BAD DATA CHARACTER FOUND THE NUMBER 

3842 :0F BITS WHICH WERE EITHER DROPPED OR PICKED UP. 

3843 ;TUO COUNTERS PER SLAVE ARE USED TO ACCUMULATE THIS 

3844 .-INFORMATION AND CAN STORE UP TO 12K DROPS 

3845 :0R PICKS BEFORE OVERFLOWING. IF OVERFLOW IS 

3846 .-ABOUT TU OCCUROT?ESE ACCUMULATORS ARE 

3847 .-PRINTED IN OCTAL AND RESET TO ZERO. 

3848 :THE CONTENTS OF THE ACCUMULATORS MAY BE 

3849 .DISPLAYED AT ANY TIME BY SETTING CONSOLE 

3850 .SWITCH FOURTEEN TO A ONE (1). THE PRINTOUT WILL OCCUR 

3851 .-AT THE END OF THE CURRENT BLOCK CYCLE. 

3852 ;**************«********•••***•**•••**•«*•**•••*•**••*• 

3853 



3854 


016762 


005067 


161656 




DRPKF: 


CLR 


TEMPI 




3855 


016766 


005067 


161654 






CLR 


TEMP2 




3856 


016772 


005067 


161652 






CLR 


TEMP3 




3857 


016776 


111167 


161642 






MOVB 


(RD. TEMPI .LOAD GOOD CHAR 


3858 


017002 


111267 


161640 






M0V6 


(R2),TENP2 .-LOAD BAD CHAR 


V A f A 

3859 


01 7006 


016704 


161664 






MOV 


UNP,R4 




3860 


017012 


016467 


000770 


161702 




MOV 


PIK1(R4),BPKP 




3861 


01 7020 


016467 


A A 4 A 4 A 

001010 


161672 




NOV 


DRP1 (R4),BDPP 




3862 


017026 


032767 


010000 


161526 




BIT 


flOOOO.RDCMD 


;SEE IF READ REVERSE 


3863 


017034 


001005 








BNE 


DRPK 


'IF SO: BR 


3864 


017036 


124142 








CMPB 


-(R1).-(R2) 


•POINT TO CHAR 


3865 


017040 


112167 


161600 






MOVB 


(R1)+, TEMPI 


;LOAD GOOD CHAR 


3866 


01 7044 


112267 


161 576 






MOVB 


{R2)+.TEMP2 


;LOAD BAD CHAR 


3867 


A4 ^ A P A 

017050 


AA t ^ 

004767 


A A A A A M 

000006 




DRPK: 


JSR 


PC. DROP 


;6ET DROPS 


3000 


U 1 f U5h 


UUh for 








ICD 

JSR 


PC. PICK 


■GET PICKS 


3869 


017060 


000207 








RTS 


PC 


;EXIT 


3870 


017062 


116703 


161556 




DROP: 


MOVB 


TEMPI. R3 


;R3 - GOOD CHAR 


3871 


017066 


116704 


161554 






MOVB 


TEMP2,R4 


;R4 - BAD CHAR 


3872 


017072 


1 40403 






DPC: 


BICB 


R4.R3 


■GET DROPS/PICKS 


3873 


017074 


001001 








BNE 


DPCG 


-IF SOME: BR 


3874 


017076 


000207 








RTS 


PC 


'RETURN 


3875 


017100 


012767 


000010 


161604 


DPCG: 


MOV 


f10,BCNT 


;SET NUMBER TO CHECK 


3876 


017106 


132703 


000001 




DPCO: 


BITB 


#1.R3 


■SEE IF DROPPED OR PICKED THIS BIT 


3877 


017112 


001455 








BEQ 


DPC2 


IF NOT: BR 


3878 


017114 


105767 


161530 






TSTB 


TEMP3 


■SEE IF ON PICKS 


3879 


017120 


001016 








BNE 


DPC1 


■IF SO: BR 


3880 


017122 


005277 


161572 






INC 


BBDPP 


;BUMP DROP CNTR 


3881 


017126 


005777 


161566 






TST 


BBDPP 




3882 


017132 


100045 








BPL 


DPC2 


-IF NO OVERFLOW: BR 


3883 


017134 


032777 


002000 


161444 




BIT 


#2000. aswR 


■SEE IF HAVE PRINTED DATA 


3884 


017U2 


001402 








BEQ 


DPCOA 


IF SO: BR 


3885 


017144 


004767 


004030 






JSR 


PC.PAPRT 


■PRINT CYCLE NUMBER 


3886 


017150 


004767 


000172 




DPCOA: 


JSR 


PC.DPPRT 


PRINT DROPS AND PICKS 


3S87 


017154 


000415 








BR 


DPC2A 




5888 


017156 


005277 


161540 




OPCl: 


INC 


BBPKP 


■BUMP PICK CNTR 


3889 


017162 


005777 


161534 






TST 


BBPKP 


SEE IF OVERFLOW 


3890 


017166 


100027 








BPL 


DPC2 


IF NOT: BR 


3891 


017170 


032777 


002000 


161410 




BIT 


#2000. aswR 


SEE IF 'have PRINTED DATA 



TH02/TUA5 DATA 


RELIABILITY PROGRAM 


MAC Yl 1 


30(1046) 


L 7 
13-JUN-78 13 


:40 PAGE 89 


SEO 0089 


C2TUIA. 


P11 07-JUN-78 














3892 


017176 


001402 








BEQ 


DPC1A 


;IF SO: BR 




3893 


017200 


004767 


AAT 7 

00377A 






JSR 


PCPAPRT 


.-PRINT CYCLE NUMBER 




389A 


01720A 


004767 


AAA4 TX 

000136 




DPC1A: 


JSR 


PC. DPPRT 


.•PRINT DROPS AND PICKS 




3895 


017210 


016704 


161462 




0PC2A: 


nov 


UNP,R4 






9 an^ 

3896 


0172U 


016403 


001010 






nov 


DRP1 (R4).R3 


.-SET DROP POINTER 




va 

3897 


017220 


016404 


AAA77A 

000770 






nov 


PIK1 (R4).R4 


;SET PICK POINTER 




3898 


01722A 


012767 


AAAAi A 

000010 


1 X 1 y X A 
161^60 




nov 


#10,BCNT 


;SET NUnBER OF BITS 




3899 


017232 


005023 






DPC2B: 


CLR 


(R3)* 


.•CLEAR DROPS 




3900 


017234 


005024 








CLR 


(R4)* 


.•CLEAR PICK 




3901 


017236 


005367 


1^1/ CA 

161hj0 






DEC 


BCNT 


;SEE IF DONE 




3902 


017242 


001373 








BNE 


DPC2B 


;IF NOT: BR 




3903 


017244 


000207 








RTS 


PC 


.•EXIT 




VAA^ 

390A 


017246 


000241 






0PC2: 


CLC 




;GET NEXT BIT 




3905 


017250 


106003 








RORB 


R3 




VAA^ 

3906 


017252 


005367 


161^3^ 






DEC 


BCNT 


;SEE IF DONE 




TAA7 

3907 


017256 


001410 








BEQ 


DPC3 






3908 


017260 


062767 


AAAAAO 

OOUUU£ 


1 ill A XL 

161h3*» 




ADD 


#2.BPKP 






VAAA 

3909 


017266 


062767 


AAAAAO 

000002 


1 A 1 y oy 
161^2h 




ADD 


#2,BDPP 






TA1 A 

3910 


017274 


000167 


1 f fOVO 






jnp 


DPCO 


.•CONTINUE 




VA4 4 

391 1 


017300 


000207 






DPC3: 


RTS 


PC 


:RETURN 




3912 


017302 


016704 


1 ol 3^0 




PICK: 


nov 


UNP,R4 


;GET UNIT POINTER 




3913 


017306 


016467 


AAA77A 
QUO/ / U 


1 iLI AAA 

161H06 




nov 


PHC1(R4).BPKP 


;SET PICK POINTER 




vol y 
391 H 


017314 


016467 


AA1 A1 A 
UOl 01 U 


1 61 3r6 




nov 


DRP1(R4),BDPP 


;SET DROP POINTER 




vol c 

391 5 


017322 


116704 


1 ill 11 

101316 






novB 


TEnPl ,R4 


:R4 = GOOD CHAR 




V04 X 

3916 


017326 


116703 


1X1 71 / 

lOl 31*t 






novB 


TEnP2.R3 


;R3 = BAD CHAR 




T01 7 

391 f 


017332 


112767 


AAAAA1 


1 ill 71 n 
1 6 1 3 1 U 




novB 


#1.TEHP3 


;SET PICK FLAG 




T01 O 

3918 


017340 


004767 


1 770iL 

1 f f 320 






JSR 


PCDPC 


;G0 CHECK PICKS 




T01 O 

3919 


017344 


000207 








RTS 


PC 


.-EXIT 




3920 


017346 


012704 


U2333U 




DPPRT: 


nov 


#nSG26,R4 






3921 


017352 


004767 








JSR 


PCTTOUT 


.-PRINT DROP HEADER 




3922 


017356 


016704 


1 o 1 31 *• 






nov 


UNP,R4 






TOO V 

3923 


017362 


016467 


nni ni n 
UUl U 1 U 


1 ill xxr\ 

1 6 1 33U 




nov 


DRP1 (R4).BDPP 


;SET DROP POINTER 




392h 


017370 


016467 


UUUr r U 


1 ill 70A 
1 6 1 3cH 




nov 


PIKl (R4),BPKP 


;SET PICK POINTER 




3925 


017376 


062767 


OUUUl 0 


1 ill 71 A 
1 61 31 *» 




ADD 


«16,BDPP 






3920 


01 7404 


062767 


UUUU 1 0 


1 ill 71 n 
1 6 1 3 1 U 




ADD 


f16,BPKP 


,;SET NUnBER TO PRINT 




392 r 


017412 


012767 


AAAAI A 

OUOUl 0 


1 ill 070 
1612f 2 




nov 


#10, BCNT 




3928 


017420 


017703 


1 it 1 07/ 

lol2f H 




DPPRTO 


: nov 


aBDPP,R3 






3929 


017424 


004767 


AA/ £.i 1 

OOhohh 






JSR 


PCOCTP 


;PRINT DROPS 




TOTA 

3930 


017430 


005367 


1 ill OCil 

1 01 2j0 






DEC 


BCNT 


:SEE IF DONE 




3931 


017434 


001404 








BEQ 


DPPRT1 


;IF NOT: BR 




3932 


017436 


162767 


AAAAA3 


1 ill '3^L 
1 6 1 C JH 




SUB 


#2,BDPP 


;BUnP POINTER 




3933 


017444 


000765 








BR 


DPPRTO 


.•CONTINUE FOR ALL 8 BITS 




393*i 


017446 


012767 


AAAAI A 


1 ill 07il 
1 0 1 c30 


DPPRT1 


: nov 


#10, BCNT 


;SET NUNBER TO PRINT 




3935 


017454 


012704 


AOCTAI 

02j3h1 






nov 


#nSG27,R4 


.•PRINT PICK HEADER 




3930 


017460 


004767 


00hh30 






JSR 


PCTTOUT 




TAS7 

3937 


017464 


017703 


1 ill 070 

161232 




DPPRT2 


: nov 


aBPICP,R3 






TQ1B 

3930 


017470 


004767 


AAZilAA 

OOhOOv' 






JSR 


PCOCTP 


.•PRINT PICKS 




3939 


017474 


005367 


161212 






DEC 


BCNT 


.■SEE IF DONE 




3940 


017500 


001404 








BEQ 


DPPRTX 


:IF SO: BR 




5941 


017502 


162767 


000002 


161212 




SUB 


#2,BPICP 


;BUnP POINTER 




5942 


017510 


000765 








BR 


DPPRT2 


.•CONTINUE FOR ALL 8 BITS 




3943 


017512 


000207 






DPPRTX 


: RTS 


PC 


.•RETURN 
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3945 
3946 
3947 
3948 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 
3963 
3964 
3965 
3966 
3967 
3968 

3969 017514 

3970 017520 

3971 017524 

3972 017526 

3973 017530 

3974 017532 

3975 017540 

3976 017542 

3977 017544 

3978 017546 

3979 017554 

3980 017556 

3981 017564 

3982 017566 

3983 017572 

3984 017576 

3985 017600 

3986 017604 

3987 017606 

3988 017612 

3989 017616 

3990 017622 

3991 017626 

3992 017630 

3993 017632 

3994 017634 

3995 017640 

3996 017642 

3997 017646 

3998 017654 

3999 017656 



016703 


161036 




ERCNK: 


032703 


000001 






001401 








005303 








005403 






ERO: 


032767 


000020 


161012 




001402 








000241 








006003 








032767 


000010 


161120 


EROB: 


001414 








032767 


010000 


160776 




001405 








012703 


033434 






162703 


000002 






000405 








062703 


033434 




EROA: 


000402 








062703 


027426 




ERl: 


010367 


001514 




ER2: 


012704 


000007 






012701 


02133^ 






005021 






ER2A0: 


005304 








001375 








020377 


160654 






001402 








005267 


001466 






032767 


000010 


161020 


ER2A1 : 


001007 








005777 


160634 




ER2A: 



n 7 

30(1046) 13-JUN-78 13:40 PAGE 90 

SEQ 0090 



STATUS CHECK SUBROUTINE: 

THIS SUBROUTINE IS USED TO PERFORM A CHECK OF 
BOTH THE nASSBUS CONTROLLER (RH11) AND THE TAPE 
CONTROLLER (Tn02}. THE RH11 IS CHECKED FOR ERRORS 
AS REFLECTED IN REGISTERS CS1 AND CS2 AND ALSO THAT 
THE BUS ADDRESS (BA) AND WORD COUNT (UC) ARE 
CORRECT. THE Tn02 IS CHECKED FOR DRIVE STATIS (DS), 
DRIVE ERRORS (ER), AND PROPER FRAME COUNT. THE SPECIAL 
CHECK CHARACTERS (CRC^LRC) ARE ALSO CHECKED WHEN 
APPROPIATE (IE: NR2 READ OR WRITE). CERTAIN TYPES 
OF DRIVE ERRORS IN PE OPERATION WILL BE ACCOMPANIED 
BY THE DISPLAY OF THE DEAD TRACK REGISTER (CO. THESE 
TYPES ARE ER BITS 15,10,7.6. THE PRINTOUTS OF BAD 
CRCLRC.FC, AND BA WILL SHOW BOTH THE EXPECTED AND 
RECEIVED VALUES (IE: EXPT-RCVD). ONLY THOSE REGISTERS 
WHICH ARE IN ERROR WILL BE PRINTED AND ALL PRINTOUTS 
ARE IN OCTAL FORMAT WITH NO LEADING ZEROS. AS IN 
DATA ERRORS, STATUS ERRORS ARE PRECEEDED BY HEADER 
DESCRIBING THE HARDWARE UNDER TEST, THE BLOCKING 
INFORMATION, AND THE ERROR TYPE. 



MOV 


FMCNT,R3 


.-GET FRAME COUNT 


BIT 


#1.R3 


:SEE IF ODD 


BEQ 


ERO 


:IF NOT: BR 
:BUMP COUNT 


DEC 


R3 


NEC 


R3 




BIT 


#20,UDES 


.-SEE IF CORE DUMP 


BEQ 


EROB 


:IF NOT: BR 


CLC 






ROR 


R3 


;SET TO FC/2 


BIT 


#10,HTC1 


:SEE IF WRITE OP 


BEQ 


ERl 


:IF SO: BR 


BIT 


#10000,RDCND 




BEQ 


EROA 




MOV 


#RDATA,R3 




SUB 


#2.R3 


;SET POINTER 


BR 


ER2 




ADD 


#RDATA,R3 


:BUILD EXPT READ ADDRESS 


BR 


ER2 




ADD 


fWDATA,R3 


:BUILD EXPT WRITE ADDRESS 


MOV 


R3.CADER 


:SAVE ADDRESS 


MOV 


#7,R4 




MOV 


f6AER,Rl 




CLR 


(R1) + 


: CLEAR FLAGS 


DEC 


R4 




BNE 


ER2A0 




CMP 


R3,aBA 


:SEE IF ADDRESS OK 


BEQ 


ER2A1 


*IF SO: BR 


INC 


BAER 


•SET BUS ADDRESS ERROR 


BIT 


flO.HTCI 


:SEE IF WRITE OPER 


BNE 


ER2B 


;IF NOT: BR 


TST 


BFC 


;SEE IF FC=0 



N 7 
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40C3 


017662 


001443 








BEQ 


ER. ; 


IF SO: BR 


4001 


017664 


005267 


00U52 






INC 


FCER .SET FC ERROR 


4002 


017670 


000167 


000076 






JHP 


ER3 




4003 


017674 


032767 


000040 


160772 


ER2B: 


BIT 


#40,nTC1 


SEE IF SPACE OPER 


4004 


017702 


001765 








BEQ 


ER2A 


IF SO: BR 


4005 


017704 


005767 


160770 






TST 


THFLG 


SEE IF TN TINE 


4006 


017710 


001012 








BNE 


ER20 ; 


IF SO: BR 


4007 


017712 


016703 


160640 






nov 


FnCNT,R3 




4008 


017716 


005403 








NEC 


R3 


R3 = EXPT RECORD SIZE 


4009 


017720 


020377 


160572 




ER2C: 


CUP 
BEQ^ 


R3,aFC 


SEE IF FC = EXPT 


4010 


017724 


001422 








ER3 


IF SO: BR 


4011 


017726 


005267 


001410 






INC 


FCER 


SET FC ERROR FLAG 


4012 


017732 


000167 


000034 






J HP 


ER3 




4013 


017736 


032767 


002000 


160606 


ER20: 


BIT 


#2000, UDES 


SEE IF PE 


4014 


017744 


001344 








BNE 


ER2A 


IF SO: BR 


4015 


017746 


032767 


010000 


160606 




BIT 


#10000,RDCnD 


SEE IF READ REVERSE 


4016 


017754 


001003 








BNE 


ER2E 


IF SO: BR 


4017 


017756 


012703 


000002 






nov 


«2,R3 




4018 


017762 


000756 








BR 


ER2C :LOOIC FOR EXPT = 2 


4019 


017764 


012703 


000001 




ER2E: 


nov 


«1,R3 




4020 


017770 


000753 








BR 


ER2C ;G0 CHECK FC FOR TH 


4021 


017772 


032777 


160000 


160510 


ER3: 


BIT 


#160000,aCl .-SEE IF COUNT ERROR 


4022 


020000 


001442 








BEQ 


ER4 




4023 


020002 


017703 


160512 






nov 


acs,R3 


GET CONT STATUS REG 


4024 


020006 


042703 


000307 






BIC 


#307. R3 


-NASK OUT IR, OR, UNIT NO. 


4025 


020012 


005703 








TST 


R3 


■^EE IF ANY OTHER ERRORS 


4026 


020014 


001407 








BEQ 


ER3A 


;IF NOT: BR 


4027 


020016 


005767 


160656 






TST 


TnFLG 


;SEE IF TAPE HARK TinE 


4028 


020022 


001427 








BEQ 


ER3B 


■IF NOT: BR 


4029 


020024 


042703 


001000 






BIC 


#1000. R3 


-NASK niSSED TRANS 


4030 


320030 


005703 








TST 


R3 


;SEE IF ANY OTHER ERRORS 


4031 


020032 


001023 








BNE 


ER3B 


'IF SO: BR 


4032 


020034 


032777 


060000 


160446 


ER3A: 


BIT 


#60000, aci 


;SEE IF EITHER TRE OR nCPE 


4033 


020042 


001421 








BEQ 


ER4 


;IF NOT: BR 


4034 


020044 


005767 


160630 






TST 


TnFLG 


■SEE IF Tn TinE 


4035 


020050 


001414 








BEQ 


ER3B 


;IF NOT: BR 


4036 


020052 


017703 


160446 






nov 


aER.R3 


;GET ERROR RCGISTER 


4037 


020056 


032767 


000010 


160466 




BIT 


#10. UDES 


;SEE IF EVEN PARITY 


4038 


020064 


001402 








BEQ 


ER3A1 


;IF NOT: BR 


4039 


020066 


042703 


000100 






BIC 


#100. R3 


;NASK PAR 


4040 


020072 


042703 


001000 




ER3A1 : 


BIC 


#1000.R3 


iNASK FCE 


4041 


020076 


005703 








TST 


R3 




4042 


020100 


001402 








BEQ 


ER4 


;IF NO ERRORS EXCEPT FCE: BR 


4043 


020102 


005267 


001230 




ER3B: 


INC 


CONER 


;SET CONT ERROR FLAG 


4044 


020106 


032777 


040000 


160406 


ER4: 


BIT 


#40000. aos 


;SEE IF DRIVE ERROR 


4045 


020114 


001421 








BEQ 


ER6 


■IF NOT: BR 


4046 


020116 


005767 


160556 






TST 


TNFLG ' 


;SEE IF TAPE HARK TIHE 


4047 


020122 


001414 








BEQ 


ER4A 


;IF NOT: BR 


4048 


020124 


017703 


160374 






nov 


aER,R3 


;GET ER 


4049 


020130 


032767 


000010 


160414 




BIT 


#10. UDES 


;SEE IF EVEN PARITY 


4050 


020136 


001402 








BEQ 


ER4A1 


;IF NOT: BR 


4051 


020140 


042703 


000100 






BIC 


#100. R3 


;nASK PAR 


4052 


020U4 


042705 


001000 




ER4A1: 


BIC 


#7000. R3 


;nASK OUT FCE 


4053 


020150 


005703 








TST 


R3 


■SEE IF ANY OTHER ERRORS 


4054 


020152 


001402 








BEQ 


ER6 


■IF NOT: BR 


4055 


020154 


005267 


001160 




ER4A: 


INC 


DRVER 


;SET DRIVER ERROR FLAG 
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SEQ 0092 



4056 


020160 


032767 


002000 


160364 


ER6: 


BIT 


f2000,U0ES 




4057 


020166 


001071 








BNE 


ERPT ; 


IF IN PE MODE: BR 


4058 


0201 70 


032777 


C2C000 


160410 




BIT 


#20000, asvR 


SEE IF NO DATA CHECK 


4059 


0201 76 


001065 








BNE 


ERPT ; 


IF NOT: BR (ALLOW READ OF 


4060 


020200 

Wfc Wfc WW 


032767 


000040 


160466 




BIT 


fAO^HTCI ; 


SEE IF WRITE OR READ OP 


4061 


020206 


001461 








BEQ 


ERPT ; 


IF NOT: BR 


4062 


020210 


0« 5767 


160464 






TST 


TMFLG ; 


SEE IF TAPE MARK TIME 


4063 


020214 


OCHH 








BEQ 


ER6A 


IF NOT: BR 


4064 


020216 


016767 


175356 


001130 




NOV 


EXCRCCRCSV ; 


SAVE CRC 


4065 


020224 


016767 


175352 


001120 




MOV 


EXLRCLRCSV 


SAVE LRC 


4066 


020232 


005067 


175342 






CLR 


EXCRC 




4067 


020236 


01 ''767 


U00023 


175336 




MOV 


f23,EXLRC 


SET CRC/LRC FOR TM 


4068 


020244 


032767 


000060 


160300 


ER6A: 


BIT 


f60,UDES 




4069 


020252 


001037 








BNE 


ERPT 




4070 


020254 


017703 


160250 






HOV 


aCC,R3 ;GET CRC CHARACTER 


4071 


020760 


042703 


177000 






BIC 


#1 77000. R3 




4072 


020264 


026703 


■•75310 






CHP 


EXCRC, R3 




4073 


020270 


001402 








BEQ 


ER7 


IF CRC GOOD: BR 


4074 


020272 


005267 


OOlOSO 






INC 


CRCER 


SET ERROR FLAG 


4075 


020276 


017703 


160232 




ER7: 


MOV 


aMR,R3 


•GET LRC 


4076 


020302 


000303 








SUAB 


R3 




4077 


020304 


005703 








TST 


R3 




4078 


020306 


100002 








BPL 


ERIO 




4079 


020310 


052703 


000400 






BIS 


f400,R3 




4080 


020314 


042703 


177000 




ER10: 


BIC 


#1 77000, R3 




4081 


020320 


026703 


175256 






CMP 


EXLRC,R3 




4082 


020324 


001412 








BEQ 


ERPT :IF LRC GOOD: BR 
R3,ACTLRC ;SAVE ACTUAL LRC 


4083 


020326 


010367 


001016 






MOV 


4084 


020332 


005267 


001006 






INC 


LRCER :SET LRC ERROR FLAG 


4085 


020336 


032767 


010000 


160216 




BIT 


#10000,RDCMD 


;SEE IF READ REVERSE 


4086 


020344 


001402 








BEQ 


ERPT 


;IF NOT: BR 


4087 


020346 


005067 


000772 






CLR 


LRCER .-ELSE CLEAR LRC ERROR 


4088 


020352 


012703 


000006 




ERPT: 


MOV 


#6,R3 




4089 


020356 


005067 


160326 






CLR 


SERFL 


; CLEAR ERROR FLAG 


4090 


020362 


005067 


160336 






CLR 


ERSAV 




4091 


020366 


012704 


021334 






MOV 


#BAER,R4 




4092 


020372 


005724 






ERPTT: 


TST 


(R4)* 


:SEE IF ANY ERROR 


4093 


020374 


001004 








BNE 


ERPTG 


;IF SO: BR 


4094 


020376 


005303 








DEC 


R3 




4095 


020400 


001374 








BNE 


ERPTT 




4096 


020402 


000167 


000670 






J MP 


ERPX1 




4097 


020406 


005267 


160276 




ERPTG: 


INC 


SERFL 


;SET ERROR FLAG 


4098 


020412 


017767 


160106 


160304 




MOV 


aER, ERSAV 


;SAVE ERROR REGISTER 


4099 


020420 


032777 


002000 


160160 




BIT 


#2000, asuR 


;SEE IF PRINT 


4100 


020426 


001420 








BEQ 


ERPTO 


;IF SO: BR 


4101 


020430 


022767 


000002 


160256 




CMP 


#2.RTyFL 


;SEE IF READ RETRY 


4102 


020436 


001006 








BNE 


ERPTGl 


;IF NOT: BR 


4103 


020440 


016703 


160240 






MOV 


RTCNT,R3 




4104 


020444 


005203 








INC 


R3 


;BUMP RETRY COUNT 


4105 


020446 


020367 


160130 






CMP 


R3. RETRY 


.-SEE IF LAST RETRY 


4106 


020452 


001406 








BEQ 


ERPTO 


'IF SO: BR 


4107 


020454 


022767 


000002 


000656 


ERPTGl: 


CMP 


f2,DRVER 


•SEE IF TM STATUS ERROR 


4108 


020462 


001402 








BEQ 


ERPTO 


:IF SO: BR 


4109 


020464 


000167 


000510 






JMP 


ERPXO 




4110 


020470 


005267 


160176 




ERPTO: 


INC 


PFLG 




4111 


020474 


004767 


002500 






JSR 


PC.PAPRT 


.PRINT HEADER 
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A112 


020500 


016704 


160150 




A113 


020504 


004767 


003412 




A1U 


020510 


004767 


000642 




A115 


020514 


005767 


160160 




A116 


020520 


001410 






A117 


020522 


022767 


026210 


160124 


A118 


020530 


001404 








020532 


012704 


026226 




4120 


020536 


004767 


003360 




4121 


020542 


005767 


000570 




4122 


020546 


001420 






4123 


020550 


012704 


025160 




4124 


020554 


004767 


003342 




4125 


020560 


017703 


157724 




4126 


020564 


004767 


003504 




4127 


020570 


012704 


025205 




4128 


020574 


004767 


003322 




4129 


020600 


017703 


157714 




4130 


020604 


004767 


003464 




4131 


020610 


005767 


000524 




4132 


020614 


001420 






4133 


020616 


012704 


025213 




4134 


020622 


004767 


003274 




4135 


020626 


017703 


157670 




4136 


020632 


004767 


003436 




4137 


020636 


012704 


025220 




4138 


020642 


004767 


003254 




4139 


020646 


017703 


157652 


• 


4140 


020652 


004767 


003416 




4141 


020656 


005767 


000452 




4142 


020662 


001421 






4143 


020664 


012704 


025173 




4144 


020670 


004767 


003226 




4145 


020674 


017703 


157614 




4146 


020700 


004767 


003370 




4147 


020704 


012767 


000255 


157726 


4148 


020712 


004767 


003314 




4149 


020716 


016703 


000410 




4150 


020722 


004767 


003346 




4151 


020726 


005767 


000410 




4152 


020732 


001410 






4153 


020734 


012704 


025200 




4154 


020740 


004767 


003156 




4155 


020744 


017703 


157546 




4156 


020750 


004767 


003320 




4157 


020754 


012704 


025166 




4158 


020760 


004767 


003136 




4159 


020764 


017703 


157522 




4160 


020770 


004767 


003300 




4161 


020774 


005767 


000346 




4162 


021000 


001423 






4163 


021002 


012704 


026253 




4164 


021006 


004767 


003110 




4165 


021012 


017703 


157512 




4166 


021016 


042703 


177000 




4167 


021022 


004767 


003246 





ERPT1 



ERPT2: 



ERPT4: 



ERPT5: 







o 
O 






S0(1046) 


13-JUM-78 


13 


:40 PAGE 


93 


nUV 


CMAADD DA 








1 C D 


or TTAIIT 

rL , M UU 1 




• DD f ilT 

; rK IN 1 


CDDAD TVDC 
CNKUK 1 Trt 


1 CD 


Dr C DDDT 




• DD t UT 


C AD D 

r UK K 


T C T 

TST 


THFL6 








DC A 


ERPT1 








r MD 


#nS654,EHADDR 






DC/1 


ERPT1 








nov 


#nSG56,R4 




• DD f UT 

;rKlNl 


TM 

1 n 


1 C D 


PC.TTOUT 








TCT 

151 


CONER 








DCD 


ERPT2 




; 1 r NU 


rnuT CDDAD- QD 
tUN 1 CnNUn* On 


MAII 

nuv 


#nSG23,R4 








1 C D 


PCTTOUT 




• DD f hIT 




Mnvi 

nuv 


aci.R3 








1 C D 


PCOCTP 




• DD f ilT 
; rN IN 1 


rnuTDAi 1 
LUNIRUL 1 


HOV 


#nSG23D,R4 




• DD 1 IlT 
; rKlN 1 


f c T*<; 


1 CD 


PC.TTOUT 








nuv 


acs.R3 








1 CD 


PC.OCTP 




• DD 1 IlT 

I rK IN 1 


TAUT CTATIIC 
lUNI SInlUS 


TCT 


DRVER 








Qcn 


ERPT3 




• IE cn 

. 1 r OU 


nDIUC CDDAD- PD 
UnlVC CnnUn* Dn 


nUV 


#NSG23E,R4 








1 C D 


PC.TTOUT 




• DO t UT 

; rnlN 1 


nc ^ kti 
PS 1 Au 


MAW 

nUv 


aDS.R3 








1 C D 


PC.OCTP 




• DDIUT 

, rNlN 1 


nDIWF CTATIIC 


nuv 


#NSG23F.R4 








1 CD 


PC.TTOUT 




• DDI IlT 
; rKlN 1 


CD TAC 


nUV 


aER.R3 








1 C D 


PC.OCTP 




> DD r UT 


nOlUC CDDA!> 
UKIVt CKKUn 


TCT 


BAER 








DC A 


ERPT4 




• t c iin 
, 1 r NU 


DA CDDAD- QD 
DA CnnUn- Dn 


nuv 


#nSG23B.R4 








1 CD 


PC.TTOUT 




. DD I IlT 

, rNlN 1 


DA T A/I 
DA 1 Au 


nUV 


aBA.R3 








1 CD 


PC.OCTP 




• DD HIT 


BIIC AftftDCCC 
DU9 AUUnCOJ 


nOV 


#255. TOB 








ICD 


PC. TOG 




. DD I IlT 
i rNlN 1 


/ 
1 


nUV 


CADER.R3 








ICD 


PC.OCTP 




• DD IIIT 
, rnlN 1 


CVDT BIIC AnnDccc 
CAri DU9 Auuncos 


TCT 


FCER 








DCO 


ERPT5 




• IE iin 
. 1 r NU 


Er CDDftD- RD 


MAU 

nuv 


fnSG23C.R4 








ICD 


PC.TTOUT 




• DD HIT 

\ rK IN 1 


E r TAR 

r y. \ Au 


nuv 


aFC.R3 








ICD 


PC.OCTP 




• DD IIIT 


r n Anc Uvurai 


M AVI 

nuv 


fNSG23A.R4 








1 CD 


PC.TTOUT 




• DD I IlT 


Ur TAK 
Wt < AO 


MAU 

nov 


auc.R3 








1 CD 

JSR 


PC.OCTP 




• DD TUT 

; rK 1 N 1 


unon rniiiiT 


TCT 

1 S 1 


CRCER 








DCA 

oca 


ERPT5A 




• IE un 
. 1 r NU 


TDT CDDAD- RD 
l>nl> CnnUn- Dn 


MAU 

nuv 


«nSG58.R4 








1 CD 

J SK 


PC.TTOUT 




• DDIIIT 

, rn 1 n i 


rpr TAC 

lAU 


nnu 

nuv 


acc,R3 








BIC 


#177000. R3 








JSR 


PC.OCTP 




.PRINT 


ACTUAL CRC 



SEQ 0093 
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SEQ 0094 



4168 


021026 


012767 


000255 


157604 




nov 


#255, TOB 




4169 


021034 


004767 


003172 






JSR 


PC. TOG 




4170 


021040 


016703 


174534 






NOV 


EXCRC.R3 




4171 


021044 


004767 


003224 






JSR 


PC.OCTP 


;PRINT EXPECTED CRC 


4172 


021050 


005767 


000270 




ERPT5A: 


TST 


LRCER 




4173 


021054 


001421 








BEQ 


ERPT6 


:IF NO LRC ERROR: BR 


4174 


021056 


012704 


026261 






nov 


«NS659.R4 




4175 


021062 


004767 


003034 






JSR 


PC.TTOUT 


:PRINT LRC TAG 


4176 


021066 


016703 


000256 






nov 


ACTLRC.R3 




4177 


021072 


004767 


003176 






JSR 


PCOCTP 


.•PRINT ACTUAL LRC 


4178 


021076 


012767 


000255 


157534 




NOV 


#255, TOB 




4179 


021104 


004767 


003122 






JSR 


PC, TOG 




4180 


021110 


016703 


174466 






NOV 


EXLRC,R3 




4181 


021114 


004767 


003154 






JSR 


PCOCTP 


.■PRINT EXPECTED LRC 


4182 


021120 


005767 


000214 




ERPT6: 


TST 


DRVER 




4183 


021124 


001424 








BEQ 


ERPT7 


:IF NO DRIVE ERROR: BR 


4184 


021126 


032767 


002000 


157416 




BIT 


#2000, UDES 




4185 


021134 


001420 








BEQ 


ERPT7 


:IF NO PE: BR 


4186 


021136 


017704 


157362 






NOV 


aER,R4 


:NASK OUT ALL BUT BITS 15,10,7,6 


4187 


021142 


042704 


075477 






SIC 


#75477, R4 


4188 


021146 


005704 








TST 


R4 




4189 


021150 


001412 








BEQ 


ERPT7 


;IF NO CONDITIONALS SET: BR 


4190 


021152 


012704 


025232 






NOV 


#NSG23H,R4 




4191 


021156 


004767 


002740 






JSR 


PCTTOUT 


;PRINT CC TAG 


4192 


021162 


017703 


157342 






NOV 


acc,R3 




4193 


021166 


042703 


177000 






BIC 


#1 77000. R3 


:NASK CC 


4194 


021172 


004767 


003076 






JSR 


PCOCTP 


: PRINT CHECK CHARACTERS 


4195 


021176 


000240 






ERPT7: 


NOP 






4196 


021200 


032777 


100000 


157400 


ERPXO: 


BIT 


#1 00000, asuR 


:SEE IF STOP ON ERROR 


'4197 


021206 


001412 








BEQ 


ERPX 


:IF NOT: BR 


4198 


021210 


000000 








HALT 






4199 


021212 


005767 


157454 






TST 


PFLG 


:SEE IF HAVE PRINTED 


4200 


021216 


001006 








BNE 


ERPX 


:IF SO: BR 


4201 


021220 


032777 


002000 


157360 




BIT 


#2000, asuR 


;SEE IF SHOULD PRINT 


4202 


021226 


001002 








BNE 


ERPX 


;IF NOT: BR 


4203 


021230 


000167 


177234 






JNP 


ERPTO 


: PR I NT ERROR 


4204 


021234 


005067 


157432 




ERPX: 


CLR 


PFLG 




4205 


021240 


012777 


000011 


157242 




NOV 


#ii,aci 


: DRIVE CLEAR 


4206 


021246 


017704 


157254 






NOV 


aAS,R4 




4207 


021252 


010477 


157250 






NOV 


R4,aAS 


.•CLEAR AS 


4208 


021256 


016704 


157226 






NOV 


C1,R4 




4209 


021262 


005204 








INC 


R4 




4210 


021264 


152714 


000100 






BISB 


#100, (R4) 


.•RESET TRE 


4211 


021270 


016777 


157256 


157244 




NOV 


UDES,aC2 


.•RESET TC 


4212 


021276 


032767 


000040 


157370 


ERPX1: 


BIT 


#40,NTC1 




4213 


021304 


001411 








BEQ 


ERPX2 


;IF NOT READ/WRITE OP: BR 


4214 


021306 


005767 


157366 






TST 


TNFL6 




4215 


021312 


001406 








BEQ 


ERPX2 


:IF NOT TN TINE: BR 


4216 


021314 


016767 


000034 


174256 




NOV 


CRCSV,EXCRC 


.•RESTORE CRC 


4217 


021322 


016767 


000024 


174252 




NOV 


LRCSV,EXLRC 


.•RESTORE LRC 


4218 


021330 


000207 






ERPX2: 


RTS 


PC 


.EXIT 


4219 


021332 


000000 






CADER: 


0 




;EXPT ADDRESS SAVE 


4220 


021334 


000000 






BAER: 


0 






4221 


021336 


000000 






CONER: 


0 






4222 


021340 


000000 






DRVER: 


0 






4223 


021342 


000000 






FCER: 


0 
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A22A 


021344 


000000 






LRCER: 


A225 


021346 


000000 






CRCER: 


A226 


021350 


000000 






ACTLRC 


4227 


021352 


000000 






LRCSV: 


4228 


021354 


000000 






CRCSV: 


A229 












4230 












4231 












4232 












4233 












4234 












4235 












4236 












4237 












4238 












4239 


021356 


032767 


000010 


157310 


FRPRT: 


4240 


021364 


001415 


V 






4241 


021366 


032767 


oooode 


157300 




4242 


021374 


001 405 


£ 






4243 


021376 


012704 


025115 






4244 


021402 


004767 


002514 






4245 


021406 


000404 








4246 


021410 


012704 


025110 




FRO: 


4247 


021414 


004767 


002502 






4248 


021420 


000207 






FREX: 


.4249 













E 8 

(1046) 13-JUN-78 13:40 PAGE 95 



0 
0 
0 
0 
0 



F FOR FORWARD/R FOR REVERSE PRINT SUBROUTINE: 

THIS SUBROUTINE IS USED TO PRINT OUT THE 
TAPE DIRECTION USED WHEN ANY ERROR IS 
DETECTED IN STATUS OF READ OR WRITE, DATA, OR 
SPACING OPERATIONS. 



BIT 


#10,HTC1 


;SEE IF WRITE COmAND 


BEQ 


FREX 


:IF SO: BR 


BIT 


#2.HTC1 


.'SEE IF REVERSE 


BEO 


FRO 


:IF NOT: BR 


nov 


#nSG17,R4 




JSR 


PC. T TOUT 


.PRINT R 


BR 


FREX 




MOV 


#NS616,R4 




JSR 


PC.TTOUT 


.-PRINT F 


RTS 


PC 


.•EXIT 



TH02/TU45 DATA RELIABILITY PR06RAH HACY1 
CZTUIA.Pll 07-JUN-78 U:A9 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 

4258 

4259 

4260 

4261 

4262 

4263 

426A 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 

4275 

4276 

4277 

4278 

4279 021422 005067 157216 TAPG: 

4280 021426 016777 157116 157064 

4281 021434 016704 157236 TAP60 

4282 021440 032777 010000 157054 

4283 021446 001046 

4284 021450 005267 157170 

4285 021454 001367 

4286 021456 032777 002000 157122 

4287 021464 001034 

4288 021466 036467 022122 157140 

4289 021474 001030 

4290 021476 056467 022122 157130 

4291 021504 004767 001470 

4292 021510 032767 000010 157156 

4293 021516 001005 

4294 021520 012704 024750 

4295 021524 004767 002372 

4296 021530 000406 

4297 021532 012704 024755 TAP61 

4298 021536 004767 002360 

4299 021542 004767 177610 

4300 021546 012704 025310 TAPG2 

4301 021552 004767 002344 

4302 021556 005726 nOLEX 

4303 021560 000167 162432 

4304 021564 016704 157106 TAP63 

4305 021570 046467 022122 157036 
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TAPE CONNAND EXECUTE SUBROUTINE: 



THIS SUBROUTINE IS USED TO EXECUTE THE 

HAG TAPE CONNAND DESCRIBED BY THE READ 

OR WRITE ROUTINE. THE FINAL COMMAND IS 

SENT TO THE DEVICE REGISTER ALONG WITH THE 

INTERRUPT ENABLE AND GO BITS. 

ONCE THE CONNAND IS ISSUED, AN INTERRUPT 

TIMER IS STARTED AND IF NO INTERRUPT IS RETURNED 

BEFORE TIME OUT OCCURS, AN ERROR WILL BE 

PRINTED AND THE PROGRAM STOPPED. TESTING MAY 

BE RESUMED BY PRESSING THE CONTINUE SWITCH. 

TWO INTERRUPT HANDLERS ARE USED, ONE FOR MAG TAPE 

AND ANOTHER FOR TELETYPE (TTY). 

UPON RECEIPT OF A MAG TAPE INTERRUPT, HOUSEKEEPING 
IS PERFORMED AND CONTROL RETURNED TO THE CALLING 
ROUTINE (READ, WRITE, ETC). 
RECEIPT OF A TTY INTERRUPT WILL CAUSE THE 
PROGRAM TO CHECK FOR ENTRY OF A CNTRL C CHARACTER. 
IF NOT CNTRL C, THEN CONTINUATION OF WAIT FOR HAG 
TAPE INTERRUPT IS RETURNED. IF, HOWEVER, THE TTY 
INTERRUPT WAS CAUSED BY ENTRY OF A CNTRL C, 
THEN AT THIS TIME REQUESTS FOR NEW STALL VALUES 
ARE PRINTED AND THE RESPONSES ENTERED. RESUMPTION 
OF TAPE INTERRUPT WAIT IS THEN RESUMED. 



CLR 


TEHP1 




nov 


DVN,aCS 


:SET DRIVE NO. 


nov 


UNP,R4 


.-GET UNIT POINTER 


BIT 


#10000,aDS 


;SEE IF HAVE HOL 


BNE 


TAPG3 


:IF SO: BR 


INC 


TEMPI 


.-SEE IF TIMED OUT 


BNE 


TAPGO 


.•WAIT FOR READY 


BIT 


f2000,aSWR 


.•SKIP PRINT? 


BNE 


MOLEX 




BIT 


M0LTAB(4),N0LSW 


;FIRST TIME? 


BNE 


MOLEX 


:N0 


BIS 


N0LTAB(4),H0LSW 


;SET FLAG 


JSR 


PCPAPRT 


.•PRINT CYCLE NUMBER 


BIT 


#10,MTC1 


.SEE IF WRITE OP 


BNE 


TAPG1 


;IF NOT: BR 


MOV 


#MSG5,R4 




JSR 


PCTTOUT 


.•PRINT WRITE ERR 


BR 


TAPG2 




NOV 


#MSG6,R4 




JSR 


PCTTOUT 


;PRINT READ ERR 


JSR 


PCFRPRT 


.•PRINT F OR R 


MOV 


#MSG25,R4 




JSR 


PCTTOUT 


.•PRINT NO MOL ERR 


POPSP 






JHP 


START7 




HOV 


UNP R4 




BIC 


M0LfAB(4).M0LSW 


.CLEAR FLAG 



TH02/TU45 DATA RELIABILITY PROGRAH 
CZTUIA.P11 07-JUN-78 14:49 



HACYll 30(1046) 13-JUN-78 



8 

13; 



4306 


021576 


032777 


020000 


156716 




BIT 


#20000, aos 


4307 


021604 


001412 








BEQ 


TAP63F 


4308 


021606 


004767 


001366 






JSR 


PC.PAPRT 


4309 


021612 


012704 


027352 






NOV 


#NSG116,R4 


4310 


021616 


004767 


002300 






JSR 


PC.TTOUT 


4311 


021622 


032777 


020000 


156672 


IS: 


BIT 


#20000, aos 


4312 


021630 


001374 








BNE 


IS 


4313 


021632 


022767 


000026 


157034 


TAP63F : 


CBP 


#26,NTC1 


4314 


021640 


001003 








BNE 


TAPG3A 


4315 


021642 


012704 


177777 






nov 


M 4 A / 

#-1 .R4 


4316 


021646 


000406 








BR 


TAPG3B 


4317 


021650 


016704 


156702 




TAPG3A: 


nov 


FNCNT,R4 


4318 


021654 


032704 


000001 






BIT 


#1 ,R4 


4319 


021660 


001401 








BEQ 


TAPG3B 


4320 


021662 


005304 








DEC 


R4 


4321 


021664 


000261 






TAPG3B: 


SEC 




4322 


021666 


006004 








ROR 


R4 


4323 


021670 


032767 


000020 


156654 




BIT 


M^A i t P% r ^ 

#20,U0ES 


4324 


021676 


001402 








BEQ 


TAPG3C 


4325 


021700 


000261 








SEC 




4326 


021702 


006004 








ROR 


R4 


4327 


021704 


010477 


156602 




TAPG3C: 


NOV 


R4,9WC 


4328 


021710 


012777 


00001 1 


156572 




nov 


#11 .aci 


4329 


021716 


017777 


156574 


156572 




NOV 


8FC ,aFC 


4330 


021724 


005767 


1 56636 






TST 


INTRF 


4331 


021730 


001407 








BEQ 


TAPG3D 


4332 


021732 


032767 


A A A A 1 A 

000040 


156734 




A t V 

BIT 


#40,NTC1 


4333 


021740 


001403 








BEQ 


TAPG3D 


4334 


021742 


012777 


AAAAA V 

000003 


<i K d r d a 

156564 




NOV 


#3,aNR 


4335 


021750 


016704 


156720 




TAPG30: 


NOV 


NTCl ,R^ 


4336 


021754 


042704 


177707 






BIC 


#1 77707, R4 


4337 


021760 


022704 


A AAA Y A 

000030 






CNP 


A A / 

#30. R4 


4338 


021764 


001403 








BEQ 


TAPG3E 


4339 


021766 


012767 


177740 


156674 




NOV 


#-40.STAL 


4340 


021774 


052767 


A A A 4 A 4 

000101 


156672 


TAP63E : 


BIS 


m4A4 MTi'l 

#101 .NTCl 


4341 


022002 


A A A 1 / A 

000240 








NOP 




4342 


022004 


016777 


1 56664 


A t: d. t ^d 

156476 




NOV 


NTCl ,aci 


4343 


022012 


005077 


156566 






CLR 


apsw 


4344 


022016 


00^067 


156622 






CLR 


TENPl 


4345 


022022 


005267 


156616 




TAP64 : 


INC 


TENPl 


4346 


022026 


001375 








BNE 


TAPG4 


4347 


022030 


005267 


A f d d ^ 1 

1 56634 






INC 


STAL 


4348 


022034 


A A 4 V 

001372 








BNE 


TAPG4 


4349 


022036 


012777 


A A A V A 

000340 


156540 


TAPG5: 


NOV 


#340,apsu 


4350 


022044 


032777 


A A t A A A 

002000 


156534 




A V V 

BIT 


M^AAA 4C*llA 

#2000, aswR 


4351 


022052 


001014 








BNE 


TAPG6 


4352 


022054 


004767 


001 12P 






JSR 


A f p% A A A V 

PC ,PAPRT 


4353 


022060 


A 4 ^ 7 A t 

016704 


A C d C 7 A 

156570 






NOV 


ENADDR,R4 


4354 


022064 


A A 1 ^ d ^ 

004767 


A A ^ A V ^ 

002032 






JSR 


n ▼ T Ai ■ ▼ 

PC.TTOUT 


4355 


0220/0 


004 (t( 


1 I f£OC 






J Sn 


or t DDDT 


4356 


022074 


012704 


025270 






NOV 


#NSG24,R4 


4357 


022100 


004767 


002016 






JSR 


PCTTOUT 


4358 


022104 


032777 


100000 


156474 


TAPG6: 


BIT 


#1 00000, asuR 


4359 


022112 


OOUOl 








BEQ 


TAPG7 


4360 


022114 


000000 








HALT 




4361 


022116 


000167 


000100 




TAPG7: 


JNP 


NTINTA 
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;SEE IF PIP RESET 
;IF SO: BR 
; PRINT HEADER 

.-PRINT REWINDING NESSAGE 

;AWAIT PIP RESET 
.-SEE IF WRITE TH 
;1F NOT: BR 
.ELSE SET FC FOR -1 



SEQ 0097 



SET WC = FC/2 FOR NORNAL FORMAT 
SEE IF CORE DUNP FORNAT 
IF NOT: BR 

SET WC = FC/4 FOR CORE DUNP 

SET WORD COUNT 

DRIVE CLEAR 

RESET FC LOADED 

SEE IF INTERCHANGE READ 

IF NOT: BR 

SEE IF READ OP 

IF NOT: BR 

SET INTERCHANGE READ NAINT. NODE 

GET CONNAND 

NASK OP CODE 

SEE IF SPACE OP CODE 

IF SO: BR 

SET INTERRUPT DELAY NULT TO 40 
SET INTERRUPT ENABLE AND GO 

EXECUTE CONNAND 
CLEAR PRIORITY 

SEE IF HAVE TINED OUT 
IF NOT: BR 

DO TINE DELAY NULTIPLIER 

RESET PRIORITY 

SEE IF SHOULD PRINT ERRORS 

IF NOT: BR 

PRINT CYCLE NUNBER 

PRINT ERROR OP 
PRINT F OR R 

PRINT NO INTERRUPT 

SEE IF SHOULD HALT ON ERROR 

IF NOT: BR 

RETURN TO CALLING ROUTINE 



H 8 

TH02/TUA5 DATA RELIABILITY PftOGRAH HACYll 50(1046) 13-JUN-78 13:40 PAGE 98 

CZTUIA.P11 07-JUN-78 U:49 QQ^g 
4362 



TH02/TUA5 DATA RELIABILITY PROGRAM MACYll 30(1046) 

C2TUIA.P11 07-JUN-78 U:49 

4363 022122 000001 HDL TAB: 1 

4364 022124 000002 2 

4365 022126 000004 4 

4366 022130 000010 10 

4367 022132 000020 20 

4368 022134 000040 40 

4369 022136 000100 100 

4370 022140 000200 200 



I 

13-JUN-78 



8 

13; 
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SEQ 0099 



J 8 

Tn02/TU45 DATA RELIABILITY PROGRAM MACYII 30(1046) 13-JUN-78 13:A0 PAGE 100 

CZTU1A.P11 07-JUN-78 14:49 SEQ 0100 



4371 


















4572 












• TTY 
,111 






4373 


















4374 


022142 


012777 


000340 


156434 


TTINT : 


NOV 


#340 apsu 


RFSFT PSU 


4375 


022150 


005077 


156434 






CLR 

U l> n 


8TICS 


Cl FAR TTV STATUS 


4376 


022154 


122777 


000203 


1 56430 




CNPB 


#203.iTKB 


SEE IF CONT C 


4377 


022162 


001401 








BEQ 


TTINTO 


IF SO: BR 


4378 


022164 


000002 








RTI 




■ELSE RETURN 


4379 


022166 


010067 


1S6456 




TTINTO: 


NOV 


R0,TENP3 


;SAVE RO(REC CNTR) 


4380 


022172 


004767 


171560 






JSR 


PC.TINP4 


•GO GET STALL VALUES 


4381 


022176 


016700 


156446 






NOV 


TENP3.ro 


•RESTORE RO(REC CNTR> 


4382 


022202 


005077 


156404 






CLR 


aTKB 


•CLEAR TTY BUFFER 


4383 


022206 


012777 


000100 


156374 




NOV 


#100,aTiCS 


•RESET INTERRUPT ENABLE 


4384 


022214 


000002 








RTI 




RETURN 


4385 


















4386 












;NAG 




4387 
















4388 


022216 


000240 






HUNT: 


NOP 






4389 


022220 


022626 








CNP 


(SP)+.(SP)* 


RESET STACK POINTER 


4390 


022222 


042777 


000037 


156304 


NTINTA: 


BIC 


#37.aNR 


•CLEAR NAINT NODE 


4391 


022230 


000177 


156430 






JNP 


aRTRN 


RETURN 



t 



Tn02/TU45 DATA RELIABILITY PROGRAH 
CZTUIA.Pll 07-JUN-78 U:49 

4392 
4393 
4394 
4395 
4396 
439/' 
4398 
4399 
4400 



HACYll 30(1046) 



K 8 
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SEO 0101 



:AUT0 SEQUENCE 

■THIS ROUTINE .ENTERED VIA STARTING ADDRESS 240 
.-WILL EXERCISE ALL AVAILABLE SLAVES ON ALL AVAILABLE 
:0RIVES IN BOTH PE AND NRZ ACCORDING TO THE PRESELECTED 
.•TEST PLAN. IF NRZ ONLY, PE TESTING WILL NOT BE ATTEMPTED. 



4401 


022234 


012704 


027162 


- ASEQ: 


nov 


#nSG108.R4 




4402 


022240 


004767 


001656 




JSR 


PC.TTOUT 


.■PRINT NRZ ONLY REQUEST 


4403 


022244 


012705 


000652 




nov 


#NRZ0F,R5 


:SET ADDRESS OF FLAG 


4404 


022250 


012701 


000001 




nov 


#1 .R1 


;SET SIZE OF ENTRY 


4405 


022254 


012702 


000001 




nov 


#1,R2 


.-SET UPPER LiniT 


4406 


022260 


012703 


000000 




nov 


#0.R3 


;SET LOWER LiniT 


4407 


022264 


004767 


001374 
026757 




JSR 


PC.TTR 


;G0 GET RESPONSE 


4408 


022270 


012704 




nov 


#nSG104,R4 




AA09 


022274 


004767 


001622 




JSR 


PCTTOUT 


.-REQUEST CONT OR NOT 


A410 


022300 


012705 


000744 




nov 


*ASEQCF,RS 


.-SET ADDRESS OF ENTRY 


4411 


022304 


012701 


000001 




nov 


#1,R1 


.-SET SIZE OF ENTRY 


A412 


022310 


012702 


000001 




nov 


#1.R2 


;SET UPPER LiniT 


AA13 


022314 


012703 


000000 




nov 


#0,R3 


.-SET LOWER LIMIT 


AA1A 


022320 


004767 


001340 




JSR 


PC.TTR 


;G0 GET INPUT 


4415 


022324 


005067 


156410 


ASEQO: 


CLR 


ADRVN 


.-CLEAR DRV NUH 


4416 


022330 


004767 


000130 


ASEQ1: 


JSR 


PC.HROS 


:G0 SELECT HARDWARE CONFIGURATION 


4417 


022334 


012704 


026711 




nov 


#nSG101,R4 




4418 


022340 


004767 


oai-556 




JSR 


PC.TTOUT 


:PRINT DIVIDER 


4419 


022344 


012704 


026737 




nov 


#nSG102.R4 




4420 


022350 


004767 


001546 




JSR 


PC.TTOUT 


.-PRINT Tn02 NUnBER 


4421 


022354 


016703 


156360 




nov 


A0RVN.R3 




4422 


022360 


004767 


001710 




JSR 


PC.OCTP 


: PRINT Tn02 


4423 


022364 


012704 


026746 




nov 


#nSG103,R4 




4424 


022370 


004767 


001526 




JSR 


PC.TTOUT 


; PRINT SLAVE HDR 


4425 


022374 


012700 


000746 




nov 


«UN1.R0 


.POINT TO START OF SLAVE TABLE 


4426 


022400 


005710 




ASEQ2: 


TST 


(RO) 


.-SEE IF END 


4427 


022402 


100404 






Bni 


A$EQ3 


;IF SO: BR 


4A28 


022404 


012003 






nov 


(R0)+,R3 




4429 


022406 


004767 


001662 




JSR 


PC.OCTP 


.PRINT SLAVE TABLE 


4430 


022412 


000772 






BR ' 


ASEQ2 


;D0 ALL 


4431 


022414 


004767 


000216 


ASEQ3: 


JSR 


PC.AH0D1 


;G0 DO MODE KNRZ) 


4432 


022420 


004767 


000406 




JSR 


PC.AnOD2 


:G0 00 nODE 2(PE) 


4433 


022424 


022767 


000007 


156306 ASEQ4: 


cnp 


#7. ADRVN 


.-SEE IF DONE ALL DRIVES 


4434 


022432 


001403 






BEQ 


ASEQX 


:IF SO: BR 


4435 


022434 


005267 


156300 




INC 


ADRVN 


.-BUnP DRIVE NUMBER 


4436 


022440 


000733 






BR 


ASEQ1 


.-CONTINUE 


4437 


022442 


005767 


156276 


ASEQX: 


TST 


ASEQCF 


.-SEE IF CONTINUOUS AUTQ SEQ 


4438 


022446 


001005 






BNE 


ASEQXX 


.-IF SO: BR 


4439 


022450 


012704 


026670 




nov 


#nSG100.R4 




4440 


022454 


004767 


001442 




JSR 


PC.TTOUT 


:PRINT END OF PASS 


4441 


022460 


000000 






HALT 






4442 


022462 


000720 




ASEQXX: 


BR 


ASEQO 





Tn02/TU45 DATA RELIABILITY PftOGRAH NACYI 
CZTU1A.P11 07-JUN-78 U:49 

4443 
4444 
4445 

4446 022464 005067 162312 HRDS: 

4447 022470 005067 156150 

4448 022474 012777 000040 156016 

4449 022502 016777 156232 156010 

4450 022510 017701 156022 

4451 022514 032777 010000 155776 

4452 022522 001403 

4453 022524 005726 HRDSO 

4454 022526 000167 177672 

4455 022532 032701 040000 HRDS1 

4456 022536 001772 

4457 022540 00500Q 

4458 022542 012701 000746 

4459 022546 010077 155770 HRDS2 

4460 022552 032777 010000 155742 

4461 022560 001403 

4462 022562 005267 156056 

4463 022566 010021 

4464 022570 022700 000007 HRDS3 

4465 022574 001402 

4466 022576 005200 

4467 022600 000762 

4468 022602 005767 156036 HRDS4 

4469 022606 001746 

4470 022610 016767 156030 162164 

4471 022616 000367 156022 

4472 022622 056767 156016 162152 

4473 022630 012711 177777 

4474 022634 000207 



f 
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SEQ 0102 



.-SUBROUTINE TO SELECT AUTO SEQUENCE HARDWARE 



CLR 


REOTC .-CLEAR EOT UNIT CNTR 


CLR 


TENP1 




NOV 


#40.acs 


•INIT 


nov 


ADRVN.aCS 


■SET DRIVE 


MOV 


aOT.RI 


■READ DRIVE TYPE 


BIT 


#10000. acs 


;TEST FOR NON-EXISTANT DRIVE 


BEQ 


HRDS1 


-IF DRIVE AVAIL: BR 


TST 


(SP)* 


;RESET STACK POINTER 


JHP 


ASEQ4 


;IF NOT: BR 


BIT 


#40000, R1 


■SEE IF DRIVE IS TAPE 


BEQ 


HRDSO 


■IF NOT: BR 


CLR 


RO 




nov 


fUNI.RI 


■SET START OF SLAVE TABLE 


NOV 


R0,aC2 


•SELECT SLAVE 


BIT 


#10000. aDs 


;SEE IF SLAVE AVAIL FOR TEST(nOL) 


BEQ 


HRDS3 


;IF NOT: BR 


INC 


TENP1 


;SET SLAVE FOUND FLAG 


NOV 


RO.(RI)* 


:LOAD SLAVE TABLE 


CNP 


#7,R0 


;SEE IF DONE ALL SLAVES 


BEQ 


HRDS4 


;IF SO: BR 


INC 


RO 


;ELSE BUNP SLAVE NUNBER 


BR 


HRDS2 


■CONTINUE SELECTION 


TST 


TENP1 


;SEE IF FOUND ANY SLAVES 


BEQ 


HRDSO 


■ ] f HQ J : 


NOV 


TENP1. REOTC 


■SET NUNBER OF UNITS 


SUAB 


TENP1 




BIS 


TENP1, REOTC 


;SET EOT CNTR 


NOV 


#-1.(R1) 


TERMINATE SLAVE TABLE 


RTS 


PC 


RETURN TO SEQ 



I 



TN02/TU45 DATA RELIABILITY PROGRAM 
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MACY11 30(1046) 



n 8 
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4475 










4476 










4477 










4478 


022636 


005067 


156014 




4479 


022642 


012701 


000746 




4480 


022646 


052721 


001700 




4481 


022652 


005111 






4482 


022654 


001402 






4483 


022656 


005111 






4484 


022660 


000772 






4485 


022662 


005111 






4486 


022664 


004767 


162126 




4487 


022670 


012767 


000062 


156044 


4488 


022676 


012767 


1 74000 


155652 


4489 


022704 


012767 


000100 


155642 


4490 


022712 


016767 


156022 


155630 


4491 


022720 


012767 


000001 


155632 


4492 


022726 


005067 


155632 




4493 


022732 


005067 


155630 




4494 


022736 


004767 


160226 




4495 


022742 


012767 


000010 


155610 


4496 


022750 


004767 


160214 




4497 


022754 


012767 


000014 


155576 


4498 


022762 


004767 


160202 




4499 


022766 


005767 


155660 




4500 


022772 


001411 






4501 


022774 


012767 


177777 


155740 


4502 


023002 


012767 


153624 


155614 


4503 


023010 


012767 


032561 


155610 


4504 


023016 


012767 


177777 


155534 


4505 


023024 


004767 


160140 




4506 


023030 


000207 







SEO 0103 



.-SUBROUTINE TO SELECT NRZ AUTO TEST NODE' 



AHODl : CLR 
NOV 

ANODIA: BIS 
CON 
BEQ 
CON 
BR 

ANODIB: CON 
JSR 
NOV 
NOV 
NOV 
NOV 
NOV 
CLR 
CLR 
JSR 
NOV 
JSR 
NOV 
JSR 
TST 
BEQ 
NOV 
NOV 
NOV 

ANODIC: NOV 
JSR 
RTS 



BLCNTR 

fUNI.RI 

#1700. (RD* 

(R1) 

ANODIB 

(R1) 

ANODIA 

(R1) 

PC.RUNDA 

#50.,ABLCNT 

#-4000.FNCNT 

flOO.RCNT 

ADRVN.DVN 

fl.PATRN 

TNEX 

INTRF 

PC.STAUTO 

#10.PATRN 

PC.STAUTO 

fU.PATRN 

PC.STAUTO 

NRZOF 

ANODIC 

#-1.ABLCMT 

«1 53624, RANBAS 

«32561 .RANSAV 

«-l .PATRN 

PC.STAUTO 

PC 



ASSURE SLOCK COUNTER IS 0 

GET START OF SLAVE TABLE 

SET ALL SLAVE TO NRZ. NORN. ODD 

IF FILLED ALL SLAVES: BR 

ELSE DO ALL 

GO REWIND ALL AVAIL SLAVES 

SET NUNBER OF BLOCKS FOR NODE 1 

SET FC = 4000 

SET REC CNTR = 100 

SELECT DRIVE 

SELECT PATTERN 1 

ASSURE NO TNK 

ASSURE NORNAL READ 

GO DO AUTO NODE 1 

SELECT PATTERN 10 

GO DO PATTERN 10 

SELECT PATTERN 14 

SEE IF NRZ ONLY 
IF NOT: BR 
FORCE TO EOT 

RESET RANDON DATA BASE 
SELECT AUTO RANDON DATA 

;RETURN TO SEO 



TH02/TU45 DATA RELJABILITy PROGRAM 
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1 CAO 




















/ C i A 


023032 


005767 


155614 




/ C1 1 


023036 


A A4 Af ^ 

001057 






/CIO 


A*^ V A 1 A 

023040 


005067 


155612 




45 13 


023044 


012701 


000746 




y c i y 


023050 


042711 


001 700 




y CI c 
h5 1 5 


A^ VAC y 

023054 


052721 


A A 'W A M 

002300 




y CI ^ 


A*) VA^ A 

023060 


AAf 4 4 4 

005111 






AC1 7 


023062 


AA4 / A 

001402 






Z CI fl 


AO YA^y 

023064 


AAC 4 4 4 

005111 






Z C1 O 


0c3066 


AAA77A 

000770 






y c^rt 
<»5cO 


AO^ATA 

023070 


AAC 4 4 4 

005111 








023072 


AA/ 7^ 7 

004767 


4^4 ^^A 

161720 






0230ro 


A4 ^7^7 

012767 


AAA AA y 

000006 


155636 


y cox 
*»5c3 


AOYi Ay 

023104 


012767 


4 ^/ AA A 

1 74000 


155444 


z c^y 


0Z3ll2 


A4 M. ^ 

012767 


AAA4 AA 

000100 


155434 


Z C7C 


0^31 <U 


At t 


AA AA 4 A 

000010 


155432 


Z COil 


AOT1 O^ 

023126 


AAy 7z 7 

004767 


4 ^ A A 9 / 

160036 


Z C07 

«»5<r 




012767 


AAAA4 / 

000014 


155420 


Z COB 


AOTl y A 


An/ 

004767 


4 Z A A^ / 

160024 


Z C 

h5^V 


Aon y y 
023144 


A4 I^Z ^ 

012767 


AA AA 4 f 

000015 


155406 


y c ZA 
4530 


023152 


AA/ ^ y *» 

004767 


160012 




y c Ti 

4531 


023156 


012767 


177777 


155556 


4532 


023164 


012767 


M7777 


155366 


4533 


023172 


004767 


157772 


4534 


023176 


000207 






4535 










4536 
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.■SUBROUTINE TO SELECT PE AUTO TEST n00E< 



SEO 0104 



TST 


NRZOF 


BNE 


AN0D2X 


CLR 


BLCNTR 


ROV 


fUNl ,R1 


6IC 


#1700. (R1) 


BIS 


#2300, (RD* 


LOn 


(Rl ) 


BEQ 


AM002B 


CON 


(Rl ) 


BR 


AN002A 


con 


(Rl ) 


JSR 


PC.RUNDA 


nov 


#6,ABLCNT 


NOV 


#-4000,FNCNT 


NOV 


#100.RCNT 


NOV 


#10.PATRN 


JSR 


PC.STAUTO 


NOV 


#14,PATRN 


JSR 


PC.ST*UTO 


NOV ■ 


#15,PaTRN 


JSR 


PC.STAUTO 


NOV 


#-1.ABLCNT 


NOV 


#-1.PATRN 


JSR 


PC.STAUTO 


RTS 


PC 



SEE IF NRZ ONLY 

IF SO: BR 

CLEAR BLOCK CNTR 

SET START OF SLAVE TABLE 

CLEAR NRZ 

SET TO PE NORN, ODD 
SEE IF E^, OF TABLE 
IF SO: BR 

CONTINUE 

REWIND ALL SLAVES 
SET AUTO BLOCK COUNT 
SET FC = 4000 
SET REC CNTR TO 100 
SELECT PATTERN 10 
GO DO AUTO SEQ 
SELECT PATTERN 14 



.•SELECT PATTERN 15 

.•FORCE TO END Of TAPE 
: SELECT AUTO RANDON DATA 

.-RETURN TO SEQ 



TR02/TU45 DATA RELIABILITY PR06RAH 
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SEQ 0105 



4537 








453B 








4539 








4540 








4541 








4542 








4543 








4544 








4545 








4546 








4547 








4548 








4549 








4550 








4551 








4552 








4553 


023200 

Vfc Vfc w 


012704 


025026 


4554 


023204 


004767 


000712 


4555 


023210 


016703 


155334 


4556 


023214 


004767 


001054 


4557 


023220 


012704 


025012 


4558 


023224 

Vfc 


004767 


000672 

www* k 


4559 


023230 


016703 


155316 


4560 


023234 


042703 


177770 


4561 


023240 


004767 


001030 


4562 


023244 


012704 


026267 


4563 


023250 


004767 


000646 


4564 


023254 


016703 


155272 


4565 


023260 


000303 




4566 


023262 


042703 


177770 


4567 


023266 


004767 


001002 


4568 


023272 


012704 


026273 


4569 


023276 


004767 


000620 


4570 


023302 


005003 




4571 


023304 


032767 


000010 


4572 


023312 


001402 




4573 


023314 


012703 


000001 


4574 


023320 


004767 


000750 


4575 


023324 


012704 


026277 


4576 


023330 


004767 


000566 


4577 


023334 


016703 


155212 


4578 


023340 


000241 




4579 


023342 


006003 




4580 


023344 


006003 




4581 


023346 


006003 




4582 


023350 


006003 




4583 


023352 


042703 


177760 


4584 


023356 


004767 


000712 


4535 


023362 


012704 


024767 


4586 


023366 


004767 


000530 


4587 


023372 


032777 


000400 


4588 


023400 


001406 




4589 


023402 


012767 


000122 


4590 


023410 


004767 


000616 


4591 


023414 


000412 




4592 


023416 


00576' 


155314 



PAPRT : 



ERROR HEADER PRINT SUBROUTINE: 

THIS ROUTINE IS USED TO PRINT OUT A HEADER 

WITH EACH ERROR MESSAGE. THE PRINT IS IN TWO 

LINES AND CONTAINS THE FOLLOWING INFORMATION. 

LINE 1: DRIVE NO. SLAVE NO. DENSITY PARITY FORMAT 

LINE 2: CURRENT BLOCK NUMBER, RECORD NUMBER IN 

WHICH THE ERROR OCCURED PLUS THE TOTAL NUMBER 

OF RECORDS IN THIS BLOCK, THE RECORD SIZE (NUMBER 

OF CHARACTERS), AND THE ERROR TYPE (READ, WRITE, SPACE, ETC) 

PLUS THE TAPE DIRECTION (FORWARD OR REVERSE). 

ALL NUMBERS ARE IN OCTAL. 

***************************************************** 



NOV 


#MSG12,R4 






JSR 


PC, T TOUT 


; PR I NT 


DRIVE HEADER 


nov 


DVN,R3 






JSR 


PCOCTP 


.•PRINT 


DRIVE NUMBER 


nov 


fMSG11,R4 






JSR 


PCTTOUT 


: PRINT 


UNIT HEADER 


NOV 


UDES,R3 






BIC 


#177770,R3 






JSR 


PCOCTP 


.•PRINT 


UNIT NUMBER 


MOV 


fMSG60,R4 






JSR 


PCTTOUT 


: PRINT 


DENSITY TAG 


MOV 


UDES,R3 






SWAB 


R3 






BIC 


#1 77770, R3 






JSR 


PCOCTP 


:PRINT 


DENSITY 


MOV 


«MSG61,R4 






JSR 


PCTTOUT 


.PRINT 


PARITY TAG 


CLR 


R3 






BIT 


#10,UDES 






BEQ 


PAPRTO 






,iOV 


f1,R3 






JSR 


PCOCTP 


.•PRINT 


PARITY 


MOV 


fMS662,R4 






JSR 


PCTTOUT 


;PRINT 


FORMAT TAG 


NOV 


UDES,R3 






CLC 








ROR 


R3 






ROR 


R3 






ROR 


R3 


: PONT I ON FORMAT 


ROR 


R3 






BIC 


#177760, R3 






JSR 


PCOCTP 


: PRINT 


FORMAT 


MOV 


#MSG8,R4 






JSR 


PCTTOUT 


; PRINT 


PATRN TAG 


BIT 


f400,aSWR 


;SEE H 


RANDOM DATA 


BEQ 


PAPRTB 


:IF NOT: BR 


MOV 


f122,T0B 






JSR 


PC, TOG 


; PR I NT 


R 


BR 


PAPRTD 






TST 


ASEQF 


:SEE n 


AUTO SEQ 



TH02/TU45 DATA 


RCLIABILITY PROGRAM 


fACYll 


30(1046) 


C 9 
13-JUN-78 13 


:40 PAGE 106 


CZTUIA.Pll 07-JUN-78 


14:49 










dCU VIVO 


4593 


023<.22 


001403 








n p A 

BEQ 


PAPRTC 


. I r uAT • DD 

I It NU I : DK 


4594 


023424 


005767 


155130 






T C T 

TST 


PA 1 KN 


• CCC fC AilTA DAUI%AII 

;Scc Ir AUlU KANUUn 


4595 


023430 


100764 








DM t 

Bni 


PAPK 1 A 


• f C C A • DD 

;lr SO: BK 


4596 


023432 


016703 


155122 




PAPRTC : 


nO\l 


PATRN «K3 




4597 


023436 


004767 


000632 






JSR 


PC .OCTP 


>DDIUT DATDU UIIMDCD 

;PRINT PATRN NUnBEn 


4598 


023442 


012704 


025044 




P APR ID : 




4IMC r* i T D/ 




4599 


023446 


004767 


000450 






JSR 


Dr TTrtllT 

PC , T TOU 1 


• DDfUT Dl ArV UA UCAI^CD 

;PK1NI BLOCK NQ. ncADEn 


4600 


023452 


016703 


1 55200 






nov 


Dl ruTD DT 

BLCNTR,R3 




4601 


023456 


004767 


00061 2 






■ CD 

JSR 


Dr nrTD 
PC .OCTP 


• DDIUT UIIMDCD 

; PRINT NUnoEn 


4602 


023462 


012704 


025052 






nov 


JiMCn / D/ 




4603 


023466 


004767 


000430 






JSR 


Dr T TrtI IT 

PC , T TOUT 


-DDfUT DCr UA UCAI^CD 

;rKlNI RcC NU. HcAUcK 


4604 


023472 


010003 








nov 


DA D7 

RO.Rj 




4605 


023474 


032767 


000010 


155172 




O f T 

BIT 


Jli A MTT 1 


•CCC tC UDITC ADCDATIAU 

;SCC Ir WKIIC UrcKAIlUN 


4606 


023502 


001404 








BcQ 


D A DD T 1 
PAPR T 1 


• 1 C C A • DD 

; Ir bU: oK 


4607 


023504 


032767 


010000 


155050 




O t T 

BIT 


ill AAA A Df\riiD 

flOOOu.RDCnD 


• CCC fC DCAD DCk/CDCC 

;SEE Ir READ RcVERSc 


4608 


023512 


001016 








BNc 


D A DDTT 

PAPRT3 


• f C C A • DD 

;IP SO: BR 


4609 


023514 


016703 


155034 




PAPRT 1 : 


nov 


DruT DT 

RCNT.Rj 




4610 


023520 


005767 


155154 






T C T 

TST 


TMC 1 f 


■ CCC fC TADC MkD¥ TfllC 

;SEC Ir lArfc HAKK lint 


4611 


023524 


A A 4 A 4 A 

001010 








Due 

BNc 


D ADDT^ 
PAPRTt 


• f C C A • DD 

;IP SO: BR 


4612 


023526 


022767 


012214 


155130 




r MO 

CAP 


4ID1 DTDU 

«B1 ,RTRN 




4613 


023534 


AA 4 AAV 

001003 








Due 

BNc 


D t DDT V 

PAPR I T 


>fC UAT DArV CDArC • DD 

;lr NOT BACK SPACE: BR 


4614 


023536 


AAf M ^ 

005767 


155152 






T C T 

TST 


D T V C 1 

RTTF L 




4615 


023542 


001402 








DC A 

BcQ 


D A DDT Y 
PAPRT5 


•tC UAT DCTDV> DD 

; 1 r NU 1 Rc 1 KT : oK 


4616 


023544 


« M A A A V 

160003 






PAPRTT : 


CI ID 

SUB 


DA D Y 


• rC T DCrADI\ UIIMDCD 

;uEI RELURD NUnoEK 


4617 


023546 


A Af t A V 

005203 






PAPRT c : 


fur 

INC 


Dl 




4618 


023550 


A A t ^ 

004767 


000520 




PAPRT3: 


ICD 

JSR 


Dr nrTD 
PC ,OCTP 


• DDtUT DC r ADD UIIMDCD 

;PRINI RECORD NiOTBER 


4619 


023554 


012767 


000055 


155056 




nov 


ilCC TAD 


;LOAD DASH 


4620 


023562 


A A « 1 ^ H 

004767 


000444 






1 CD 

JSR 


Dr T Ar 
PC, TOG 


•DDfUT DACU t ^\ 

;PR1NI DASH l~l 


4621 


023566 


016703 


154762 






nov 


Dr uT dV 
RCNT ,Ki 




4622 


023572 


A A 1 ^ A 


000476 






1 C D 

JSR 


D r Ar T D 
PC.OCIP 


• DDIUT OCrADI\ rAliUT 

;PR1NI RECURD lUUNI 


4623 


023576 


A4 t ^ A / 

012704 


024762 






nov 


#HCr7 DV 

f nSwf ,R4 




4624 


A t At 

023602 


A A / ^ ^ ^ 

004767 


000314 






1 CD 

JSR 


D r T T Al 1 T 

PCTTOUl 


• DDfUT DCrADIN Cf7C LlCAI\CD 

;PR1NI RELURU olLt HEADEK 


4625 


023606 


016703 


154744 






MAX 

nov 


FnCNT,R3 


• rcT ruADArTCD rAiiuT 
;GET CHARACTER COUNT 


4626 


023612 


005303 








DEC 


R3 




4627 


023614 


005103 


000452 






con 


n5 


• DCMAUC TUAC TAMDI CMCUT 

;Rtnovc iwud lunPLcncNi 


4628 


023616 


004767 






1 CD 

JSR 


Dr ArTD 
PC ,OCTP 


•DDIUT ocrADn C f 7C 
;PR1NI RECURD Sift 


4629 


023622 


012767 


000001 


155036 




nov 


f1,H0RFL 


;SET HEADER FLAG 


4630 


023630 


000207 








RTS 


PC 


.•RETURN 


4631 



















Tn02/TUA5 DATA RELIABILITY PROGRAR 
CZTU1A.P11 07-JUM-78 U:A9 



4632 

4633 

4634 

4635 

4636 

4637 

4638 

4639 

4640 

4641 

4642 

4643 

4644 

4^45 

4646 

4647 

4648 



023632 066767 154770 754764 

023640 066767 154760 154760 

023646 026701 1 54754 

023652 101367 

023654 020267 154746 

023660 101364 

023662 000207 
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RANDOn NUMBER GENERATOR SUBROUTINE: 

THIS SUBROUTINE IS USED TO GENERATE THE RANDOM 
NUMBERS REQUIRED FOR USE AS RANDOM DATA. 
RECORD COUNT, AND CHARACTER COUNT. 
****** 



RANG: 



SEO 0107 



ADO 


RANSAV,RANBAS 




ADD 


RANBAS.RANSAV 


;GET NEW NUMBER 


CMP 


RANSAV.Rl 


;SEE IF NUMBER TOO 616 


BHI 


RANG 


'IF SO: BR 


CMP 


R2,RANSAV 


;SEE IF NUMBER TOO SHALL 


BHI 


RANG 


■IF SO: BR 


RTS 


PC 


EXIT 



Tn02/TU45 DATA RELIABILITY PROGRAM 
CZTUIA.P11 07-JUN-78 U:A9 



4649 

4650 

4651 

4652 

4653 

4654 

4655 

4656 

4657 

4658 

4659 

4660 

4661 

4662 

4663 

4664 

4665 

4666 023664 005067 

4667 023670 005000 

4668 023672 004767 

4669 023676 122767 

4670 023704 001005 

4671 023706 005767 

4672 023712 001446 

4673 023714 000167 

4674 023720 122767 

4675 023726 101402 

4676 023730 000167 

4677 023734 122767 

4678 023742 101002 

4679 023744 000167 

4680 023750 005267 

4681 023754 000241 

4682 023756 006100 

4683 023760 000241 

4684 023762 006100 

4685 023764 000241 

4686 023766 006100 

4687 023770 042767 

4688 023776 056700 

4689 024002 005301 

4690 024004 001332 

4691 024006 020002 

4692 024010 101402 

4693 024012 000167 

4694 024016 030300 

4695 024020 101402 

4696 024022 000167 

4697 024026 010015 

4698 024030 000207 

4699 024032 012704 

4700 024036 004767 

4701 024042 162716 

4702 024046 000207 
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SEQ 0108 



154754 
000152 

000215 154736 

154732 

000066 

000260 154714 
000076 

000270 154700 

000062 
154670 



177770 154644 
154640 



000014 
000004 



026001 
000060 
000020 



:TTY ENTRY SUBROUTINE: 

•THIS SUBROUTINE IS USED BY 
.ENTRY ROUTINE TO READ THE 
;AT THE TTY AND CHECK THEM 
:LiniTS. ALL RESPONSE MUST 
;(0-7) AND MUST FALL WITHIN 
:THE CALLING ROUTINE. 
:IF AN ENTRY IS ILLEGAL OR 
:A QUESTION HARK IS TYPED ( 
.-HAY BE REENTERED. 
;ENTRIES MAY NOT EXCEED SIX 
:>1AY BE TERMINATED AT LESS 
.-CARRIAGE RETURN 



THE TEST CONDITION 
RESPONSE ENTERED 
FOR LEGALITY AND 
BE TYPED IN OCTAL 
THE LIMITS SET BY 

OUTSIDE THE LIMITS, 
?) ANDJHE RESPONSE 

(6) CHARACTERS AND 
THAN SIX BY TYPING A 



TTR: 


CLR 


TEMPI 


CLEAR FIRST CHARACTER FLAG 




CLR 


RO 




TTRO: 


JSR 


PCTTIN 


GO READ CHARACTER 




CMPB 


#215. TIB 


SEE IF CR 




BNE 


TTRl 


IF NOT: BR 




TST 


TEMPI 


SEE IF FIRST CHARACTER 




BEQ 


TTR5 


IF SO: BR 




JMP 


TTR2 


ELSE GO LOAD VALUE 


TTR1 : 


CMPB 


#260. TIB 


;SEE IF CHAR IS LESS TIHAN 0 




BLOS 


TTRIA 


;IF NOT: BR 




JMP 


TINER 


ELSE GO TO ERROR 


TTR1A: 


CMPB 


#270, TIB 


-SEE IF CHAR IS GREATER THAN 7 




BHI 


TTR1B 


IF NOT: BR 




JMP 


TINER 


ELSE GO TO ERROR 


TTR1B: 


INC 


TEMPI 


;SET FIRST CHARACTER FLAG 




CLC 








ROL 


RO 






CLC 








ROL 


RO .-SHIFT 3 LEFT 




CLC 








ROL 


RO 






BIC 


#177770,118 


STRIP ASCII 




BIS 


TIB,RO 


•LOAD CHARACTER 




DEC 


R1 


SEE IF DONE 




BNE 


TTRO 


IF NOT: BR 


TTR2: 


CMP 


R0,R2 


;SEE IF 'exceeded MAXIMUM LIMIT 




BLOS 


TTR3 


•IF NOT: BR 




JMP 


TINER 


ELSE GO TO ERROR 


TTR3: 


CMP 


R3,R0 


•SEE IF BELOW MINIMUM LIMIT 




BLOS 


TTR4 


IF NOT: BR 




JMP 


TINER 


ELSE GO TO ERROR 


TTR4: 


MOV 


R0.(R5) 


LOAD VALUE 


TTR5: 


RTS 


PC 


•EXIT 


TINER: 


MOV 


#MSG43,R4 






JSR 


PCTTOUT 


•PRINT? 




SUB 


#20. (SP) 


RESET SP TO START OF VALUE RO 




RTS 


PC 


REDO VALUE ENTRY 



TM02/TUA5 DATA 


RELIABILITY PROGRAM 
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CZTUIA. 


P11 


[)7-JUN-78 


14:49 










CCA niAo 


A703 






























;TTY 






4705 


















4706 


024050 


005077 


154534 




T riN- 


CLR 


aiKS 




klOl 


024054 


005077 


154532 






CLR 


iTKB 




4708 


024060 


005067 


154556 






CLR 


TIB 




4709 


024064 


005277 


154520 






INC 


aTKS 




4710 


024070 


105777 


154514 




TTTNl • 


TSTB 


aTKS 




4711 


024074 


100375 








BPL 


TTIN1 




4712 


024076 


017767 


154510 


154536 




nov 


aTKB.TIB 




4713 


024104 


105777 


154504 






TSTB 


aTPS 




4714 


024110 


100375 








BPL 


TTIN2 




4715 


024112 


116777 


154524 


154476 




novB 


TIB,aTPB 




4716 


024120 


000207 








RTS 


PC 




4717 


















4718 












;TTY 


OUTPUT SUBROUTINE************ 




4719 
















4720 


024122 


112467 


154512 




TTOIIT • 


novB 


{R4)*.T0B 




4721 


024126 


122767 


000043 


154504 




CHPB 


#43,T0B 




1*722 


024134 


001444 








BEQ 


TEX 




4723 


024136 


122767 


000045 


154474 




CHPB 


145. TOB 




4724 


024144 


001407 








BEQ 


TCRLF 




4725 


024146 


122767 


000041 


154464 




CMPB 


#41, TOB 




4726 


T)24154 


001435 








BEQ 


TBELL :D0 BELL 




4727 


024156 


004767 


000050 






JSR 


PC, TOG 




4728 


024162 


000757 








BR 


TTOUT 




4729 


024164 


112767 


000015 


T54446 




novB 


#15, TOB 




4730 


024172 


004767 


000034 






JSR 


PC, TOG 




4731 


024176 


012703 


000006 






NOV 


«6,R3 




4732 


024202 


005067 


154432 




TTftl F A ■ 


CLR 


TOB 




4733 


024206 


004767 


000020 






JSR 


PC. TOG 




4734 


024212 


005303 








DEC 


R3 




4735 


024214 


001372 








BNE 


TCRLFA ;D0 FILLERS 




4736 


024216 


112767 


000012 


154414 




NOVB 


#12. TOB 




4737 


024224 


004767 


000002 






JSR 


PC. TOG 




4738 


024230 


000734 








BR 


TTOUT 




4739 


024232 


105777 


154356 






TSTB 


aTPS 




4740 


024236 


100375 








BPL 


TOG 




4741 


024240 


116777 


154374 


154350 




NOVB 


TOB.aiPB 




4742 


024246 


000207 






1 C A • 


RTS 


PC 




4743 


024250 


012703 


000002 






MOV 


#2.R3 




4744 


024254 


012767 


000007 


154356 




NOV 


#7. TOB 




4745 


024262 


004767 


177744 






JSR 


PC, TOG 




4746 


024266 


005303 








DEC 


R3 




4747 


024270 


001371 








BNE 


TBELA 




4748 


024272 


000713 








BR 


TTOUT 




4749 


















4750 





























30(1046) 


G 


9 








TH02/TUA5 DATA 


RELIABILITr PROGRAM 


HAC*11 


IT II lu 70 

13-JUN-78 


15 


:40 PAGE 110 


SEQ 0110 


CZTUIA. 


Pll 07-JUN-78 


14:49 














4751 










.•OCTAL 


OUTPUT SUBROUTINE************ 




4752 






















4753 


074774 




000212 


OCTP: 


CLR 


OFL 






■CLEAR FLAG FOR LEADING ZERO 




4754 


074^00 


01 0^04 






nov 


R3.R4 






■SEE IF NUMBER IS ZERO 




4755 


VCH JVC 








BNE 


OCTPO 






■IF NOT ZERO: BR 




4756 


074304 


004767 


000162 




JSR 


PC.0CTPG1 






;ELSE PRINT ZERO 




4757 


074310 


000167 


000120 




JHP 


0CTP3 






;SPACE AND EXIT 




4758 




032704 


1 00000 


OCTPO: 


BIT 


t1 00000, R4 






;SEE IF NSD = 1 




4759 


024370 


001406 

WW 1 ~ wU 






BEQ 


0CTP1 






;IF NOT: BR 




4760 


074372 


017704 


000001 




NOV 


#1 ,R4 










4761 


024326 


004767 

Ww^ f U f 


000116 




JSR 


PC, OCTPG 




.-PRINT 1 




4762 


024332 


000167 

www 1 W * 


000006 




JNP 


0CTP2 










4763 


024336 


005004 

WW ^ W W~ 




0CTP1 : 


CLR 


R4 










4764 


024340 


004767 

,ww~ f W f 


000104 




JSR 


PC, OCTPG 




:PRINT 0 




4765 


024344 


910304 

V 1 w^w^ 




0CTP2: 


nov 


R3,R4 










4766 


024346 


006004 

w www w ~ 






ROR 


R4 










4767 


024350 


006004 

W WW w w^ 






ROR 


R4 










4768 


024352 


006004 

WW w W W^ 






ROR 


R4 




.•POSITION DIGIT 




4769 


024354 


006004 

WWW w v~ 






ROR 


R4 










4770 


024356 


000304 

w w w ^ w » 






SWAB 


R4 










4771 


024360 


004767 

w w~ » w » 


000064 




JSR 


PC, OCTPG 






. rNlN 1 UiUl 1 C 




4772 


024364 


010304 






NOV 


R3,R4 










4773 


024366 


006004 

WWW" 






ROR 


R4 










4774 


024370 


000304 

WWW J w~ 






SWAB 


R4 










4775 


024372 


004767 


000052 




JSR 


PC .OCTPG 






• DDTMT niRIT 
, rn 1 n 1 U i Ui 1 j 




4776 


024376 


010304 






NOV 


R3.R4 










4777 


024400 


006104 

www ■ w » 






ROL 


R4 










4778 


024402 


006104 

www • w~ 






ROL 


R4 










4779 


024404 


000304 

W W W ^ W T 






SWAB 


R4 










4780 


024406 


004767 

W W~ ' W ' 


000036 




JSR 


PC, OCTPG 






.•PRINT DIGIT 4 




4781 


024412 


010304 






NOV 


R3,R4 










4782 


024414 


006004 

WW W W W T 






ROR 


R4 










4783 


024416 


006004 

W W W W W T 






ROR 


R4 










4784 


024420 


006004 

www V V » 






ROR 


R4 










4785 


024422 


004767 


000022 




JSR 


PC , OCTPG 










4786 


024426 


010304 






NOV 


R3,R4 










4787 


024430 


004767 


000014 




JSR 


PC. OCTPG 






.•PRINT DIGIT 5 




4788 


024434 


012767 


000240 154176 


0CTP3: 


NOV 


#240, TOB 










4789 


024442 


004767 


177564 




JSR 


PC, TOG 






.•PRINT SPACE 




4790 


024446 


000207 






RTS 


PC 






;EXIT 




4791 


024450 


042704 


177770 


OCTPG: 


BIC 


m4 ^^9YA WSM 

0i7777O,«it 










4792 


024454 


001004 

W W ■ W V ' 






BNE 


OCTPGO 










4793 


024456 


005767 


000030 




TST 


OFL 










4794 


024462 


001001 






BNE 


OCTPGO 










4795 


024464 


000207 

W W W b w ■ 






RTS 


PC 










4796 


024466 


005267 


000020 


OCTPGO 


: INC 


OFL 










4797 


024472 


052704 


000260 


0CTPG1 


: BIS 


#260, R4 










4798 


024476 


010467 


154136 




NOV 


R4.T0B 










4799 


024502 


004767 


177524 




JSR 


PC, TOG 










4800 


024506 


010304 






NOV 


R3,R4 










4801 


024510 


000207 






RTS 


PC 










4802 


024512 


000000 




OFL: 


0 








.•FIRST CHAR FLAG 




4803 























H 9 

TH02/TUAS DA1A RELIABILITY PROGRAM HACYll 30(1046) 13-JUN-78 15:A0 PAGE 111 

C2TU1A.P11 07-JUN-78 U:49 SEQ Oin 

480A 



4805 












;OATA 


CHARACTER OUTPUT 




4806 


















4807 


024514 


005067 


154120 




DOUT: 


CLR 


TOB 




4808 


024520 


012704 


000010 






nov 


M 4 A Ay 

#10. R4 


;SET NUHBER TO PRINT 


4809 


024524 


110367 


154110 






novB 


R3,T0B 




4810 


024530 


105777 


1 54060 




D0UT1 : 


TSTB 


8TPS 




4811 


024534 


100375 








BPL 


0OUT1 




4812 


024536 


132767 


A AA1 A A 

000200 


4 f y A^ d 

1 54074 




BITB 


M'^AA TAB 

#200, TOB 




4813 


024544 


001404 








BEO 


D0UT2 




4814 


024546 


A 4 ^ ^ ^ 

012777 


A A A A^ 4 

000061 


154042 




ROV 


mAX 4 '\TAB 

#061 ,BTPB 




4815 


024554 


AAA / A 9 

000403 








BR 


D0UT3 




4816 


024556 


012777 


AAAA^ A 

000060 


154032 


DOUT 2: 


nov 


mAZ A A TAB 

#060,aTPB 




4817 


024564 


006167 


154050 




D0UT3: 


ROL 


TOB 




4818 


024570 


A A^ 9 A / 

005304 








DEC 


A y 

R4 




4819 


024572 


001356 








BNE 


D0UT1 




4820 


024574 


A A A A ^ 

000207 








RTS 






4821 


024576 


A4 M. ^AV 

016703 


4 f y A y y 

154046 




DOUTD : 


nov 


TEnP3.R3 




4822 


024602 


A A A V A V 

000303 








SWAB 


R3 




4823 


A'% y ^ Ay 

024604 


AAy ^y ^ 

004767 


4 ^ ? ? A y 

1 77704 






JSR 


PC. DOUT 




4824 


A'^ y ^ 4 A 

024610 


A4 X 7A V 

016703 


4 c y AT y 

154034 






nov 


TEnP3.R3 




4825 


A t y ^4 y 

024614 


AAy 9 

004767 


4 7 y 

1 77674 






JSR 


PC. DOUT 




4826 


024620 


AAA t A^ 

000207 








RTS 


PC 




4827 


















y A A 

4828 












; TU45 




4829 


















4830 


024622 


A 4 A 7 A 4 

010304 






SNPT : 


nov 


R3.R4 




4831 


024624 


AAA V A i 

000304 








SWAB 


R4 




4832 


024626 


AAy AAy 

006004 








ROR 


R4 




4833 


024630 


AAX AAy 

006004 








AAA 

ROR 


R4 




4834 


A^y 

024632 


AAX AAy 

006004 








AAA 

ROR 


R4 




4835 


A^y z 9y 

024634 


aax aa/ 

006004 








AAA 

ROR 


R4 




y a V z 

4836 


A'^y Tz. 

024636 


AAy ^ 

004767 


A A A A Ty. 

000036 






1 C A 

JSR 


PC. SNPG 


.•PRINT FIRST DIGIT 


4837 


A^y X y ^ 

024642 


A 4 AT A y 

010304 








nov 


RS.R4 




^ A V a 

4838 


A ^ y y y y 

024644 


A A A V A y 

000304 








SWAB 


R4 




/ a V A 

4839 


A '^y X y X 

024646 


AA/ ^X ^ 

004767 


A A A A 

000026 






1 C A 

JSR 


PC. SNPG 


;PR1NT SECOND DIGIT 


4840 


A ^ y y f ^ 

024652 


A 4 ATA y 

010304 








nov 


R3,R4 




y a/ 4 

4841 


A^y X f y 

024654 


AAX AAy 

006004 








ROR 


R4 




4842 


A'^y X cx 

024656 


AAX AAy 

006004 








ROR 


R4 




4843 


A*^/ XXA 

024660 


AAX AAy 

006004 








AAA 

ROR 


R4 




/ a / i 

4844 


A^y X X ^ 

024662 


AAy AAy 

006004 








AAA 

ROR 


R4 




4845 


A^y A M. t 

024664 


AA y 7 

004767 


A A A A 4 A 

000010 






1 A 

JSR 


PC, SNPG 


.•PRINT THIRD DIGIT 




UcHOrU 


rtl l\Xf\L 








MAW 

nuv 


R3,R4 




4847 


024672 


004767 


000002 






JSR 


PC. SNPG 


.•PRINT FOURTH DIGIT 


4848 


024676 


000207 








RTS 


PC 


.•EXIT 


4849 


024700 


012767 


000260 


153732 


SNPG: 


nov 


#260, TOB 


;SET NUnSER BASE 


4850 


024706 


042704 


177760 






BIC 


#1 77760. R4 


..nASK NUnSER 


4851 


024712 


050467 


153722 






BIS 


R4,T0B 


.BUILD DIGIT 


4852 


024716 


004767 


177310 






JSR 


PC. TOG 


;G0 TYPE 


4853 


02i,722 


000207 








RTS 


PC 


.•RETURN 



4854 



Tn02/TU45 DATA RELIABILITY PROGRAM 
CZTUlA.Pll 07-JUN-78 U:A9 



I 9 



HACYll 30(10*6) 13-JUN-78 13:40 PACE 'i\2 



SEQ 0112 



4855 
















4856 












: ERROR 


HESSAGcS******** 


4857 
















4858 


024724 


042052 


020105 


fk.A 9 

043 


HSG1 : 


.ASCII 




4859 
















4860 


024731 


045 


035507 


A '1 4 / / A 

021440 


nSG2: 


.ASCI I 


y . n y 

/XG; f/ 


4861 














yVD •My > 


4S62 


024736 


041045 


A ^ A A ^ T 

020073 


A / T 

043 


nSG3: 


.ASCII 


4863 
















4864 


024743 


A / r 

045 


A / ^4 AT 

047103 


021440 


MCA/ . 

HSG4 : 


A c r f f 

. ASCI I 


y V r u y 


t AA f 

4865 
















4866 


024750 


053452 


020105 


A i 7 

043 


M C A C . 

nS65: 


A c r T f 

.ASCI 1 




i AA ^ 

4867 
















t aa a 

4868 


024755 


Af ^ 

052 


A/ '^C 

042522 


AH / / A 

021440 


nSG6: 


A c r 1 t 
.ASCI 1 


y * DC it y 
/•RE •/ 


4869 
















i a A 

4870 


024762 


AC4 AC ^ 

051052 


A^A4 ^ 7 

020123 


Ay 7 

043 


nSur : 


A c r t t 
.ASCI I 


y*Dc if / 
/•Kb •/ 


4871 
















4872 


024767 


A f ^ 

052 


A i A f ^ A 

040520 


AC 1 i 

051 124 


MC AD. 

nSGB: 


A c r ff f 
.ASCI I 


y *n A T ii y 
/•PATRrl f/ 


4873 




0201 16 


Ay 7 
043 










4874 


A**/ 'J^^ 


A/ A 

040 


A/ 7i ^ T 

047123 


A0AA70 

020072 


nsGy: 


A c r t t 
.ASCI 1 


y cu • if / 
/ SN: •/ 


4875 


A A A y 

025004 


A / T 

043 












4876 


025005 


052 


Ay ocov 
042523 


A01 t i f\ 

021440 


HC^I A • 

nSulO: 


.ASCI 1 


y*cc if / 
/•at •/ 


UoJJ 
















y a ^ a 

4878 


A ^ C A 4 ^ 

025012 


A C i / C ^ 

051452 


A/ AC i / 

Oh051m 


Ay oc 
042326 


Men 1 • 
nSGl 1 : 


A c r f T 

.ASCII 


/*Ci AIJC AIA if/ 

/•SLAVE NU. •/ 


4879 


A C A^ A 

025020 


f\J 7A^ A 

0^/OhO 


0271 1 7 


A01 i i f\ 

021440 








4880 
















y a a 4 

4881 


A '^C A '^Z 

025026 


A1 ^ / / C 

022445 


A/ OA/ C 


Ay y coo 
044322 


nSG12: 


A c r f f 
.ASCI I 


/XaaDKIVc NU. 


y a a ^ 

4882 


A ^ r A V i 

025034 


042526 


A / 7A/ A 

047040 


A071 1 7 

0271 1 f 








/DOT 

4883 


025042 


AH / / A 

021440 












i a a i 

4884 
















J a a f 

4885 


025044 


A IC A/ C 

025045 


Ay 71 A*) 

04^102 


A01 y y A 
021440 


Mcr*1 T • 

nSul3: 


A c r f f 
.ASCI I 


yV*Dii if/ 


4886 
















/ D Q 7 




AC 1 rtC 0 

051052 


U2U1 1 0 


043 


Men L • 




/ *Dki M 1 


i a a a 

4888 
















/ a an 


025057 


A/ C 

04) 


AOAAy 1 

020041 


AOAAy A 

02004U 


Hcn c • 


A c r 1 f 
.ASCII 


/* : D 


4890 


A '^C A^/ 

025064 


AOAA/ A 

020040 


AOAAy A 

020040 


AOAAy A 

020040 








4891 


025072 


A/ i A/ A 

04 1 040 


Ay 01 Ai 
042101 


AC 1 Ay A 

051040 








4892 


A i AA 

025100 


Ay 1 CAC 

041 505 


AC 1117 

051 117 


022504 








/ DAY 

4893 


A^ C i AX. 

025106 


021445 












/ OA/ 

4894 


















OcM 10 




043 




Mcr 1 A • 

nSulo: 


.ASCII 


/ C if / 

/ r • / 


A 896 
















4897 


A^C i i T 

0Z5113 


Ay A 

040 


A91 C99 

021522 




nsGi f i 


A c r f t 
.ASCI 1 


/ fkii / 
/ nm 1 


4898 
















/ aAA 

4899 


A*) c i i z 

0251 16 


A^AAy 1 

020041 


A/ VC AC 


AOA1 oy 

020124 


nSG20: 


A cr ff ff 
.ASCI 1 


y 1 COT AlA ■ if / 

/! cOl NO: ml 


^900 


025124 




A5AA75 

U2UUf 2 


043 








4901 
















4902 
















/ OAT 

4903 


0251 31 


Ay c 
045 


Ay i t i ^ 
044441 


Ay ^1 1 y 
0461 1 4 


n3u22 : 


A c r T T 

.ASCI I 


/¥ 1 II 1 cr AI DAT 

/ A ; ILLcuAL BU 1 




Uc? 1 jO 




UhO 1 U 1 


f\L^(\L(\ 








4905 


025144 


052117 


020072 


040510 








4906 


025152 


052114 


022445 


021445 








4907 
















4908 


025160 


041445 


030523 


021440 


nS623: 


.ASCII 


/XCS1 #/ 


4909 
















4910 


025166 


053445 


020103 


043 


HS623A: 


.ASCII 


/xuc «/ 



BAD RECOR0XX#/ 



TNOa/TUAS DATA RELIABILITY PROGRAM 
CZTUIA.P11 07-JUIII-78 U:49 



4911 

4912 

4913 

4914 

4915 

4916 

4917 

4918 

4919 

4920 

4921 

4922 

4923 

4924 

4925 

4926 

4927 

4928 

4929 

4930 

4931 

4932 

4933 

4934 

4935 

4936 

4937 

4938 

4939 

4940 

4941 

4942 

4943 

4944 

4945 

4946 

4947 

4948 

4949 

4950 

4951 

4952 

4953 

4954 

4955 

4956 

4957 

4958 

4959 

4960 

4961 

4962 

4963 

4964 

4965 

4966 



025173 045 
025200 043045 



025205 
025212 

025213 

025220 

025225 

025232 

025237 

025244 

025251 

025256 

025263 

025270 
025276 
025304 

025310 
025316 
025324 

025330 
025336 

025341 
035346 

025352 
025354 
025362 
025370 
025376 
025404 
025412 
025413 
025420 
025426 
025434 
025442 
025450 
025456 
025464 
025472 



045 
043 

045 
042445 

045 
041445 

045 
046445 

045 
052045 

045 

020445 
052116 
052120 

020445 
046117 
052114 

042045 
020072 

045 
035123 

021445 
022445 
040440 
042523 
042503 
052524 
045 
115 
047105 
020123 
052103 
022445 
042040 
042522 
046111 
042524 



040502 
020103 
051503 

051504 

020122 

051501 

020113 

041104 

020122 

052104 

020103 

047123 

047516 
051105 
021445 

047516 
020072 
021445 

047522 
043 

044520 
021440 



052524 
052125 
052521 
024040 
040511 

045501 
051124 
047111 
046101 
052524 
052101 
044514 
052111 
052123 



021440 
043 
020062 

021440 

043 
.021440 

043 
021440 

043 
021440 

043 

021440 

044440 
052522 



046440 
040510 



051520 
045503 



032464 

0201 1 7 
047105 
055103 
024460 

020105 
042511 
047440 
021445 
032464 
020101 
041101 
020131 
024040 



J 9 

HACYII 30(1046) 13-JUN-78 13:40 PAGE 113 

nSG23B: .ASCII /ZBA 91 

nSG23C: .ASCII /ZFC #/ 

nSG23D: .ASCII /ZCS2 91 

nSG23E: .ASCII /ZDS 9/ 

HS623F: .ASCII /ZER #/ 

nSG23G: .ASCII /ZAS 9/ 

nSG23H: .ASCII /ZCK 9/ 

nSG23I: .ASCII /ZDS 9/ 

nSG23J: .ASCII /ZNR #/ 

MS623K: .ASCII /ZDT #/ 

nSG23L: .ASCII /ZTC #/ 

nSG23n: .ASCII /ZSN 9/ 

nSG24: .ASCII /Z!N0 INTERRUPTZf/ 

nSG25: .ASCII /Z!N0 HOL: HALTZ«/ 

nS626: .ASCII /ZDROPS: #/ 

HS627: .ASCII /ZPICKS: #/ 



nSG28: .ASCII /Z#/ 

nSG30: .ASCII /ZZTU45 AUTO SEQUENCE (CZTUIAO}Z/ 



SEQ 01 



.ASCII /HAKE ENTRIES IN 0CTALZ#/ 



nSG31: .ASCII /ZZTU45 DATA RELIABILITY TEST (CZTUIAO}ZnAKE ENTRIES IN OCTALZf/ 



TH02/TU45 DATA 


RELIABILITY PR06RAH 


HACVII 


30(1046) 


K 9 

13-JUN-78 13.40 PAGE 


114 








CZTUIA. 


pn 07-JUN-78 


14:49 
















SEQ 0114 


A967 


025500 


055103 


052524 


040511 
















A968 


025506 


024460 


046445 


045501 
















4969 


025514 


020105 


047105 


051124 
















A970 


025522 


042511 


020123 


047111 
















4971 


025530 


047440 


052103 


046101 
















4972 


025536 


021445 




















4973 
























4974 


025540 


051445 


040514 


042526 


nS632: 


.ASCII 


/XSLAVE NUMBER = #/ 










4975 


025546 


047040 


046525 


042502 
















4976 


025554 


020122 


020075 


043 
















4977 
























4978 


025561 


045 


042504 


051516 


nSG33: 


.ASCII 


/XDENSITY = #/ 










4979 


025566 


052111 


020131 


020075 
















4980 


025574 


043 




















4981 
























4982 


025575 


045 


040520 


044522 


nSG34: 


.ASCII 


/XPARITY = HI 










4983 


025602 


054524 


036440 


021440 
















4984 
























4985 


025610 


051045 


041505 


051117 


nS635 : 


.ASCII 


/XRECORD COUNT = 1/ 










4986 


025616 


020104 


047503 


047125 
















4987 


025624 


020124 


020075 


043 
















4988 
























4989 


025631 


045 


044103 


051101 


nSG36: 


.ASCII 


/XCHARACTER COUNT = «/ 










4990 


025636 


041501 


042524 


020122 
















4991 


025644 


C'7503 


047125 


020124 
















4992 


025652 


02'-075 


043 


















4993 
























4994 


025655 


045 


040520 


052124 


MS637: 


.ASCII 


/XPATTERN NUMBER = f/ 










4995 


025662 


051105 


020116 


052516 
















4996 


025670 


041115 


051105 


036440 
















4997 


025676 


021440 




















4998 


025700 


051445 


047111 


046107 


nSG38: 


.ASCII 


/XSINGLE PASS = 9/ 










4999 


025706 


At A 4 A f 

020105 


040520 


051523 
















5000 


025714 


036440 


021440 


















5001 


025720 


Aft t M F 

022445 


047105 


042524 


nS640: 


.ASCII 


/XXENTER STALLSXREAD = 


#/ 








5002 


025726 


020122 


052123 


046101 
















5003 


025734 


051514 


051045 


040505 
















5004 


025742 


020104 


020075 


043 
















5005 
























5006 


025747 


A / r 

045 


051127 


052111 


nS641 : 


.ASCII 


/XURITE = 9/ 










5007 


025754 


020105 


020075 


043 
















5008 






















5009 


025761 


A 4 ^ 

045 


052524 


047122 


nS642: 


.ASCII 


/XTURN AROUND = »/ 










5010 


025766 


040440 


047522 


047125 
















5011 


025774 


020104 


020075 


043 
















5012 
























5013 


026001 


045 


022477 


043 


nSG43: 


.ASCII 


/X?X#/ 










5014 
























5015 


026005 


A # r 

045 


047105 


042524 


nSG44: 


.ASCII 


/XENTER YOZZLE STALL = 


#/ 








5016 


026012 


020122 


047531 


055132 
















5017 


026020 


042514 


051440 


040524 
















5018 


026026 


046114 


036440 


021440 
















5019 
























5020 


026034 


042445 


051122 


040440 


nS645: 


.ASCII 


/XERR AHT #/ 










5021 


026042 


052115 


021440 


















5022 

























TH02/TUA5 DATA 


RELIABILITY PROGRAM 


HACrll 


30(1046) 


L 9 

13-JUN-78 15:40 PAGE 115 


CZTUIA. 


P11 


37-JUN-78 


14:49 








SEQ 0115 


5023 


026046 


043045 


020103 


043 


nSo4o: 


.A5t 1 1 


IhtK, ml 


5024 
















5025 


026053 


045 


040503 


021440 


RSo4f : 


A c r T T 




5026 
















5027 


026060 


020445 


047516 


0A1040 


nSG4B: 


A c r f f 


/h,H\j OUI ON KcWINO: HALl**'/ 


502B 


026066 


052117 


047440 


0201 16 








5029 


026074 


042522 


044527 


042116 








5030 


026102 


020072 


040510 


052114 








5034 


026110 


022445 


043 






* 


• 


5032 
5033 


026113 


040 


047516 


020124 


nSu4y : 


A c r 1 t 


1 NUl AVAIL '/ 


5034 


026120 


053101 


044501 


020114 








5035 


026126 


043 












5036 


026127 


040 


046111 


042514 




•ASCI 1 


/ ILLcuAL DRlVt lire •/ 


5037 


026134 


040507 


020114 


051104 








5038 


026142 


053111 


020105 


054524 








5039 


026150 


042520 


021440 










5040 


026154 


042045 


044522 


042526 




A c r f 1 
. ASl 1 1 


/*Dr1Vc NUnocR = ml 


5041 


026162 


047040 


046525 


042502 








5042 


026170 


020122 


020075 


043 








5043 
















5044 


026175 


045 


047506 


046522 




A e r T f 


/XMJKnAl = •/ 


5045 


026202 


052101 


036440 


021440 








5046 
















5047 


026210 


053452 


020105 


046524 




A c r T f 

• Adl 1 1 


/ "Wt \nml 


5048 


026216 


043 












5049 
















5050 


026217 


052 


042523 


052040 




A c r T t 


/•5t In*/ 


5051 


026224 


021515 












5052 
















5053 


026226 


052040 


021515 




nSo3o: 


A cr f r 
. ASl 1 1 


/ Tll# / 

/ \nml 


5054 
















5055 


026232 


047040 


047117 


042455 


■■crC7 • 


A c r f t 
. A5l 11 


1 NUN'CXlbl sLAVt*/ 


5056 


026240 


044530 


052123 


051440 








5057 


026246 


040514 


042526 


043 








^058 


026253 


045 


051103 


020103 


nSu3o: 


A c r t t 
•Adlll 


/*IkC */ 


5059 


026260 


043 












5060 


026261 


045 


051114 


020103 




A c r T ff 

• Adl 11 


/*Lnt ml 


5061 


026266 


043 












5062 


026267 


052 


020104 


043 


nSuoU: 


A c r r t 
.ASCII 


/♦U ml 


5063 


026273 


052 


020120 


043 


nSool : 


A c r t t 

•ASCII 


l*r ml 


5064 


026277 


052 


020106 


043 




A c r f ff 
•ASCII 


/ *t ml 


5065 
















5066 


026303 


045 


047452 


044522 


nS604 : 


A c r t f 
• ASC 1 1 


/VAADf/'fUAl CDDnD*il/ 

/**UKioINAL tHROn*ml 


5067 


026310 


044507 


040516 


020114 








5068 


026316 


051105 


047522 


025122 








5069 


026324 


043 












5070 
















5071 


026325 


045 


042522 


051124 


nSuOd : 


A r t f 

• ASCI I 


/VDCTBVa Mi 

/XRcTRT: ml 


5072 


026332 


035131 


021440 










5073 
















5074 


026336 


020452 


042523 


051040 


nSboo : 


A c r t t 
.ASCI 1 


/*lSc RFRT ml 


5075 


026344 


051124 


020131 


043 








5076 
















5077 


026351 


052 


042441 


040522 


NSG67: 


.ASCII 


/*1ERASE#/ 


5078 


026356 


042523 


043 











n 9 
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5079 
















5080 


026361 


045 


042522 


042522 


nSG68: 


.ASCII 


/ZREREV: #/ 


5081 


026366 


035126 


021440 










5082 


026372 


052045 


050101 


020105 


NSG69: 


.ASCII 


/ZTAPE HARK = #/ 


5083 


026400 


040515 


045522 


036440 








5084 


026406 


021440 












5085 














/Z'NO DRY FROM REWIND: HALTZ#/ 


5086 


026410 


020445 


047516 


042040 


NS670: 


.ASCII 


5087 


026416 


054522 


043040 


047522 








5088 


026424 


0201 1 5 


042522 


044527 








5089 


026432 


042116 


020072 


040510 








5090 


026440 


052114 


021445 










5091 


026444 


047040 


047117 


042455 


nS671 : 


.ASCII 


/ NON-EXIST DRIVE#/ 


5092 


026452 


044530 


052123 


042040 








5093 


026460 


044522 


042526 


043 








5094 


026465 


045 


042522 


053506 


HSG72: 


.ASCII 


/XREFWD: #/ 


5095 


026472 


035104 


021440 










5096 


026476 


053445 


042524 


051122 


NS673: 


.ASCII 


/XUTERR: #/ 


5097 


026504 


020072 


043 










5098 


026507 


045 


042522 


044507 


nSG74: 


.ASCII 


/XRE6ISTER START = #/ 


5099 


026514 


052123 


051105 


051440 








5100 


026522 


040524 


052122 


036440 








5101 


026530 


021440 












5102 


026532 


053045 


041505 


047524 


HS675: 


.ASCII 


/ZVECTOR = #/ 


5103 


026540 


020122 


020075 


043 








5104 


026545 


045 


042504 


042522 


NS676: 


.ASCII 


/ZDEREV: #/ 


5105 


026552 


035126 


021440 










5106 


026556 


042045 


043105 


042127 


NS677: 


.ASCII 


/ZDEFUD: #/ 


5107 


026564 


020072 


043 










5108 


026567 


045 


047041 


047117 


nSG78: 


.ASCII 


/Z!NON-RETRYABLE WRITE ERROR: ER #/ 


5109 


026574 


051055 


052105 


054522 








5110 


026602 


041101 


042514 


053440 








5111 


026610 


044522 


042524 


042440 








5112 


026616 


051122 


051117 


020072 








5113 


026624 


051105 


021440 










5114 


026630 


020445 


047516 


026516 


HS679: 


.ASCII 


/Z!NON-RETRYABLE READ ERROR: ER #/ 


5115 


026636 


042S22 


051124 


040531 








5116 


026644 


046102 


020105 


042522 








5117 


026652 


042101 


042440 


051122 








5118 


026660 


051117 


020072 


051105 








5119 


026666 


021440 












5120 


026670 


020445 


042441 


042116 


nSGlOO: 


.ASCII 


/X! !END OF PASS Z#/ 


5121 


026676 


047440 


020106 


040520 








5122 


026704 


051523 


022440 


043 








5123 


026711 


045 


025045 


025052 


NSG101 : 


.ASCII 


/XX«******** ♦•♦•♦*♦♦*•*/ 


5124 


026716 


025052 


025052 


025052 








5125 


026724 


025052 


025052 


025052 








5126 


026732 


025052 


025052 


052 








5127 


026737 


052 


046524 


031060 


NS6102: 


.ASCII 


/•TB02 #/ 


5128 


026744 


021440 












5129 


026746 


051452 


040514 


042526 


NS6103: 


.ASCII 


/♦SLAVES #/ 


5130 


026754 


020123 


043 










5131 


026757 


045 


052501 


047524 


RS6104: 


.ASCII 


/XAUTO CONT: #/ 


5132 


026764 


041440 


047117 


035124, 








5133 


026772 


021440 










5134 


026774 


051045 


041505 


053117 


NS6105: 


.ASCII 


/XRECOVEREDf/ 
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5135 

5136 

5137 

5138 

5139 

5140 

5141 

5142 

5143 

5144 

5145 

5146 

5147 

5148 

5149 

5150 

5151 

5152 

5153 

5154 

5155 

5156 

5157 

5158 

5159 

5160 

5161 

5162 

5163 

5164 

5165 

5166 

5167 

5168 

5169 

5170 

5171 

5172 

5173 

5174 

5175 

5176 

5177 

5178 

5179 

5180 

5181 

5182 

5183 

5184 

5185 

5186 

5187 

5188 

5189 

5190 



027002 

027007 

027014 

027022. 

027030 

027034 

027042 

027050 

027056 

027064 

027072 

027077 

027104 

027112 

027120 

027126 

027130 

027136 

027144 

027152 

027160 

027162 

027170 

027176 

027204 

027212 

027220 

027226 

027230 

027236 

027244 

027252 

027260 

027264 

027272 

027300 

027305 
027312 

027316 
027324 

027327 
027334 
027342 
027350 
027352 
027360 
027366 
027374 
027402 
027410 
027416 
027424 



051105 
052 
020104 
047440 
047514 
051045 
020104 
020073 
051101 
041040 
047440 
045 
042522 
040522 
040502 
052117 
041045 
041505 
042514 
020116 
021445 
047045 
046116 
020452 
052111 
047514 
020116 
021531 
051445 
052103 
052040 
051045 
035124 
041040 
050101 
052117 

045 
035124 

020045 
020072 

045 
042122 
020104 
021522 
020445 
044440 
044527 
035107 
020124 
051440 
040440 
021524 



042105 
020441 
040524 
042526 
021527 
053505 
040524 
042522 
020124 
047514 
042516 
020441 
047503 
046102 
020104 

042101 
051117 
052106 
040524 

055122 

035131 

050041 

047511. 

052123 

042522 

051525 
041040 
050101 
050105 
021440 
042101 
020105 
022523 

051440 
021440 

040510 
043 

020441 
051040 
051105 

047125 
020123 
042116 
052040 
044527 
040524 
020124 



043 
040502 
042520 
043122 

047111 
042520 
052123 
052101 
045503 
043 
047125 
042526 
020105 
050123 

051040 
020104 
047440 
042520 

047440 
021440 
051517 
020116 
'044440 
051124 

042520 
042101 
021505 
040505 

052040 
050123 
043 



N 9 
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nSG106: .ASCII /«!!BAD TAPE OVERFLOUf/ 

nSG16A: .ASCII /ZREUIND TAPE: RESTART AT BLOCK 0NE#/ 

nSGl07: .ASCII /Z! iUNRECOVERABLE BAD SPOT/ 

.ASCII /ZBAD RECORD LEFT ON TAPEZ#/ 

nSGlOB: .ASCII /ZNRZ ONLY: #/ 

nS6109: .ASCII /*! 'POSITION LOST IN RETRY#/ 

nSGIIO: .ASCII /ZSUSPECT BAD TAPE#/ 

BS6111: .ASCII /XREPEAT: #/ 

nS6112: .ASCII / BAD TAPE SPOTSZ*/ 



SEQ 0117 



043117 NSG113: .ASCII /Z SOFT: Ul 



042122 nSGlU: .ASCII /Z HARD: #/ 



040510 nSG115: .ASCII /Z! 'HARD READ ERROR#/ 

040505 

047522 ^ 

052111 HSG116: .ASCII /ZIUNIT IS -REWINDING: TEST WILL START AT B0T#/ 

042522 

047111 

051505 

0461 U 

052122 

047502 



B 10 

Tn02/TU45 DATA RELIABILITY PROGRAM NACYll 30(1046) 13-JUil-78 13:40 PAGE 118 

CZTUIA.P11 07-JUN-78 14:49 SEQ 0118 

5191 .EVEN 

5192 027426 000000 UDATA: 0 .WRITE BUFFER 
5193 

5194 033434 .=.»4004 

5195 033434 000000 ROATA: 0 :REAO BUFFER 
5196 

5197 000001 .END 



C 10 



TH02/TUA5 DATA 


RELIABILITY PROGRAM nACrll 


30(1046) 13- 


-JUN-78 13:40 


PAGE 120 








CZTU1A.P11 07-JUN-78 14:49 


SYMBOL 


TABLE 












ABLCNT 


000742 


BTOVX 


007240 


DATA5 


003004 


DERR3 


016426 


DRP6 


001022 


ACTLRC 


021350 


BTOVO 


007102 


DATA6 


003006 


DERR4 


016430 


DRP7 


001024 


ADRVN 


000740 


BT0V1 


007112 


DATA7 


003010 


0ERR4A 


016572 


DRP8 


001026 


AHODI 


022636 


BT0V2 


007214 


DATBL 


002770 


DCRR4B 


016640 


DRVER 


021340 


AMOOIA 


022646 


BT0V3 


007232 


DATER1 


001130 


DERR5 


016676 


DS 


000522 


AnooiB 


022662 


BTPRT 


007242 


DATR 


015142 


DERR6 


016710 


DSUP 


014176 


API001C 


AO V A« M 

023016 


3TPRT1 


007320 


DATRO 


015160 


DFX 


016220 


DSO 


014206 


Anoo2 


A O V A V O 

023032 


BTPT 


000732 


DATO 


014414 


DFO 


016112 


DSOA 


014270 


AN002A 


A A V A PA 

023050 


BTSTF 


000730 


OATOA 


014444 


DFOA 


016006 


DSOB 


014266 


APK)0?B 


A O V A ^ A 

023070 


BTUR 


007324 


DATOB 


014452 


DFOAO 


016030 


DSOC 


014230 


API002X 


023176 


BTOO 


001610 


DATOC 


014522 


DFOAl 


016044 


DS1 


014320 


APATS 


A 4 f 4 OO 

015122 


BT01 


001714 


DATOD 


014530 


0F0A2 


016060 


DS2 


014340 


AS 


AA A f O ^ 

000526 


«%▼ A O 

BT02 


002020 


DATOE 


014540 


0F0A3 


016074 


DS2A 


014350 


ASEQ 


AO oo T y 

022234 


n V AT 

BT03 


002124 


DATOF 


014554 


DF0A4 


016100 


DS3 


014354 


ASEQCF 


AAA 9 y y 

000744 


BT04 


002230 


DAT1 


014566 


DFOB 


015746 


DS4 


014364 


ASEQF 


A AA? 

000736 


n V AP 

BT05 


002334 


DAT1A 


014572 


DFOBO 


015770 


DT 


000536 


ASEQX 


A O O i y O 

022442 


BT06 


002440 


DAT1B 


014576 


DFOC 


015726 


DVN 


000550 


ASEQXX 


AO O/ X O 

022462 


AT A^ 

BT07 


002544 


DAT10 


0U726 


DFOCO 


015736 


DOFL 


014564 


ASEOO 


AO O VO i 

022324 


AA 

BO 


012146 


DAT10A 


014740 


OFOD 


015712 


EHADDR 


000654 


ASEQ1 


A O O T T A 

022330 


A 4 

Bi 


012214 


DAT11 


014760 


DFOE 


015704 


EOTCO 


002650 


ASEQ2 


AO O ^ AA 

022400 


n O 

B2 


012224 


DAT11A 


014766 


DFOF 


015676 


EOTREC 


000662 


ASEQ3 


AO O / 1 / 

022414 


CADER 


021332 


DAT12 


015002 


DF1 


016124 


ER 


000524 


ASEQ4 


Aooy o / 

022424 


CC 


000530 


DAT12A 


015012 


DF2 


016134 


ERCHK 


017514 


BA 


AAAC i i 

000514 


CCNTR 


012250 


0AT13 


015026 


DF3 


016152 


ERPT 


020352 


BAER 


AO 4 w y 

021334 


CLLAST 


015314 


DAT14 


015036 


DF4 


016214 


ERPTG 


020406 


BBC 


A A A^ £. A 

000660 


CLP 


015424 


DAT14A 


015050 


DOUT 


024514 


ERPTG1 


020454 


BCNT 


AAA74 O 

000712 


CLPE 


015450 


DAT15 


015070 


DOUTD 


024576 


ERPTT 


020372 


B AAA 

BDPP 


AAA70A 

000720 


CLPO 


015460 


DAT15A 


015074 


DOUTl 


024530 


ERPTO 


020470 


A A AA 

BOOO 


AA4 / 4 A 

001410 


^1 A 4 

CLP1 


015472 


DAT15B 


015104 


D0UT2 


024556 


ERPT1 


020542 


AA 1 A 

BD10 


AA4 / TA 

001430 


^1 AO 

CLP2 


015532 


DAT2 


014610 


D0UT3 


024564 


ERPT2 


020610 


A A OA 

BD20 


AA4 y CA 

001450 


^1 A T 

CLP3 


015544 


DAT3 


014616 


OPC 


017072 


ERPT3 


020656 


A A TA 

BD3u 


AA4 / 7 A 

0014/0 


^ 1 A 

CLO 


015230 


DAT3A 


014624 


DPC6 


017100 


ERPT4 


020726 


A A / A 

B040 


AA1 C 4 A 

001 510 


CL1 


015256 


DAT3B 


014630 


OPCO 


017106 


ERPT5. 




AA C A 


AAi C TA 

001 530 


/* 1 O 

CL2 


015300 


DAT4 


014644 


DPCOA 


017150 


ERPT5A 


021050 


B AX A 

BOoO 


001550 


CL3 


015366 


DAT5 


014656 


DPC1 


017156 


ERPT6 


021120 


A A 7A 

BD70 


AA4 

001570 


y* AuP A 

CONER 


021336 


DAT6 


014666 


DPC1A 


017204 


ERPT7 


021176 


A V A T 

BKRT 


012170 


CRCER 


021346 


DAT7 


014676 


DPC2 


017246 


ERPX 


021234 


iKSP 


A 1 OA 1 O 

012012 


CRCLRC 


015212 


DAT7A 


014712 


DPC2A 


017210 


ERPXO 


021200 


Av TM 

BKTn 


Ai 

01 tOf 4 


CRCSV 


021354 


DB 


000532 


DPC2B 


017232 


ERPX1 


021276 


BV YMA 


Ai 

012136 


cs 


000520 


DCHK 


015606 


0PC3 


017300 


ERPX2 


021330 


Al /* U T A 

BLCNiR 


AAAZ. CX 

000656 


^ 4 

CI 


000510 


DCHKO 


015636 


OPPRT 


017346 


ERSAV 


000724 


A A^ A 

BPKP 


AAA70 O 

000722 


P o 

C2 


000542 


DEREV1 


001170 


DPPRTX 


017512 


ERTFL 


000734 


A AAA 


AA4 O 4 a 

001210 


A A T A A 

DATAO 


002772 


DEREX 


016714 


DPPRTO 


017420 


ERO 


017530 


AA4 A 

BP10 


AA1 "^TA 

001230 


M A T A 4 

DATA1 


002774 


DEREX1 


016750 


DPPRT1 


017446 


EROA 


017600 


A AO A 


AAi ^CA 

001250 


fi A T A 4 A 

OATAIO 


003012 


DERFL 


000706 


DPPRT2 


017464 


EROB 


017546 


a A TA 


AAI O'TA 

001270 


A A T A 4 A 

DATA1 1 


003014 


DERR 


016222 


DROP 


017062 


ER1 


017606 


ooLn 

Or«lv 


UU ijW 




003016 


DERRO 


016236 


DRPK 


017050 


ER10 


020314 


BP50 


001330 


DATA13 


003020 


DERROA 


016270 


DRPKF 


016762 


ER2 


017612 


BP60 


001350 


DATA14 


003022 


DERROB 


016324 


0RP1 


001010 


ER2A 


017656 


BP70 


001370 


DATA15 


003024 


DERROC 


016354 


DRP2 


001012 


ER2A0 


017626 


BTAOOR 


001030 


DATA2 


002776 


OERROD 


016356 


DRP3 


001014 


ER2A1 


017646 


BTFLG 


000726 


DATA3 


003000 


DERR1 


016406 


DRP4 


001016 


ER2B 


017674 


9T0V 


007062 


DATA4 


003002 


0ERR2 


016410 


DRP5 


001020 


ER2C 


017720 
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TABLE 












ER2D 


017756 


NSG115 


027327 


HSG50 


026127 


PAPRTO 


023320 


RDRT4 


011052 


ER2E 


017764 


nSG116 


027352 


nSG52 


026154 


PAPRT 1 


023514 


RDRT5 


011054 


ER3 


017772 


nsGi2 


025026 


NSG53 


026175 


PAPRT 2 


023546 


RDRT5A 


011116 


ER3A 


02003A 


nSG13 


025044 


HSG54 


026210 


PAPRT3 


023550 


RDRT5B 


011126 


ER3A1 


020072 


NSG14 


025052 


NSG55 


026217 


PARCNT 


015604 


RDRT6 


011162 


ER3B 


020102 


nSG15 


025057 


NSG56 


026226 


PARS 


014412 


RDRT7 


011230 


ERA 


020106 


nSG16 


025110 


HSG57 


026232 


PATRN 


000560 


RDX 


010644 


ER4A 


020154 


nSG16A 


027034 


nSG58 


026253 


PATS 


014410 


RDO 


007766 


ER4A1 


020144 


MSG17 


025113 


HSG59 


026261 


PFLG 


000672 


RD1 


010034 


ER6 


020160 


nsG2 


024731 


HSG6 


024755 


PICK 


017302 


R01A 


010050 


ER6A 


020244 


nSG20 


025116 


nS660 


026267 


PIKI 


000770 


RD1B 


010056 


ER7 


020276 


nSG22 


025131 


NSG61 


026273 


PIK2 


000772 


RD1D 


010064 


EXCRC 


015600 


nSG23 


025160 


NSG62 


026277 


PIK3 


000774 


RD10 


010564 


EXLRC 


A4 r ^ A t 

01 5602 


HSG23A 


025166 


HSG64 


026303 


PIK4 


000776 


RD11 


010574 


FC 


A A A r 4 d. 

000516 


HSG23B 


025173 


NSG65 


026325 


PIK5 


001000 


RD2 


010070 


PCER 


A'% 4 9 / 

021342 


nSG23C 


025200 


HSG66 


026336 


PIK6 


001002 


RD2A 


010110 


FCSAV 


AA A^ 9 t 

000632 


NSG23D 


025205 


nSG67 


026351 


PIK7 


001004 


RD2B 


010120 


FHCNT 


000556 


nSG23E 


025213 


nSG68 


026361 


P1K8 


001006 


RD3 


010150 


FREX 


A^4 ^ ^A 

021420 


nSG23F 


025220 


HSG69 


026372 


POPPOP= 


022626 


RD4 


010202 


FRPRT 


021336 


nSG23G 


025225 


nS67 


024762 


POPSP = 


005726 


RD4A 


010300 


FRO 


A^4 / 4 A 

021410 


NSG23H 


025232 


nSG70 


026410 


PRB 


000622 


RD4A0 


010332 


HDRFL 


AAA^ d. £. 

000666 


nSG23l 


025237 


HSG71 


026444 


PRS 


000620 


RD4A1 


010354 


HRDS 


022464 


NSG23J 


025244 


nSG72 


026465 


psy 


000604 


RD4A2 


010376 


HRDSO 


A*) / 

022524 


HSG23K 


025251 


nSG73 


026476 


RANBAS 


000624 


RD4B 


010404 


HRDS1 


A*) 

022532 


nSG23L 


025256 


nSG74 


026507 


RANG 


023632 


RD4C 


010410 


HR0S2 


022546 


NS623n 


025263 


nSG7S 


026532 


RANSAV 


000626 


RD4D 


010440 


HRDS3 


022570 


HSG24 


025270 


HSG76 


026545 


RANSET 


004230 


RD4E 


010444 


HR0S4 


A'^^Z A*) 

022602 


nSG25 


025310 


NSG77 


026556 


RCNT 


000554 


RD5 


010454 


INTRF 


AA AC ^ ^ 

000566 


MSG26 


025330 


nSG78 


026567 


RCNTR 


012310 


RD6 


010476 


1 n p A 

LRCER 


A^4 V/ / 

021 344 


nSG27 


025341 


nSG79 


026630 


RCSAV 


000630 


RD7 


010522 


LRCSV 


A14 TC 

021352 


nSG28 


025352 


NSG8 


024767 


RDA 


007730 


RD7A 


010552 


nOLEX 


A'^4 CCd. 

021 556 


nsG3 


024736 


nSG9 


024777 


RDATA 


033434 


READ 


007670 


MAI 1 ■ 

noLSw 


AAA^ T/ 

000634 


nSG30 


025354 


HTC1 


000674 


RDCND 


000562 


REGS 


000544 


■an 1 TAB 

nOLTAB 


A^^ 4 1^ 

022122 


nSG31 


025442 


HTINT 


022216 


RDERR1 


001150 


REOT 


004262 


HR 


000534 


HSG32 


025540 


HTINTA 


022222 


RDER1 


001110 


REOTC 


005002 


M^ 4 

HSG1 


024724 


HSG33 


025561 


NOP s 


000240 


RDER2 


001112 


REOTX 


004740 


M^ ^ 1 A 

nSGIO 


AOCAAC 

025005 


nSG34 


025575 


NRTP 


011236 


RDER3 


001114 


REOTXX 


004776 


M<*^4 AA 

nSGlOO 


AIZ. Z. ^A 

0266/0 


nSG35 


025610 


NRZOF 


000652 


RDER4 


001116 


RE0T1 


004276 


M<*^4 A1 

NSG101 


AIZ. 74 4 

02671 1 


nsG36 


025631 


OCTP 


024274 


RDER5 


001120 


RE0T1A 


004332 


MC^I A^ 

nSGIOZ 




nSG37 


025655 


OCTPG 


024450 


RDER6 


001122 


RE0T1B 


004354 


M«*^4 AV 

HSG103 


A^Z 7/ Z 

026746 


nSG38 


025700 


OCTPGO 


024466 


RDER7 


001124 


RE0T1C 


004376 


NSG104 


026^5^ 


nsG4 


024743 


0CTPG1 


024472 


RDER8 


001126 


RE0T1D 


004402 


MC^I AC 

NSG103 


026 f f 4 


nSG40 


025720 


OCTPO 


024314 


ROEX 


010640 


RE0T1E 


004426 


HSGlOo 


A07AA7 

02 rOOr 


FISG41 


025747 


OCTPl 


024336 


RDFL 


015210 


RE0T1F 


004370 




02707r 


nSG42 


025761 


0CTP2 


024344 


RDRTG 


010740 


RE0T2 


004452 


MC ^1 AO 

NSG108 


AO^t XO 

027162 


nSG43 


026001 


0CTP3 


024434 


RDRTX 


011234 


RE0T2A 


004514 




Uc r 1 r O 


nSG^4 


026005 


OFL 


024512 


RDRTY 


010646 


RE0T3 


004542 


FISG11 


025012 


NSG45 


026034 


PAPRT 


023200 


RDRTO 


010660 


RE0T4 


004572 


HSG110 


027230 


nSG46 


026046 


PAPRTA 


023402 


RDRT1 


010714 


RE0T5 


004606 


FVSG111 


027252 


nSG47 


026053 


PAPRTB 


023416 


RDRT1A 


010712 


RE0T6 


A A 1 £ C 1 

004654 


nSG112 


027264 


nSG48 


026060 


PAPRTC 


023432 


RDRT1B 


010734 


RE0T7 


004712 


nSG113 


027305 


nS649 


026113 


PAPRTD 


023442 


RDRT2 


011024 


RETRY 


000602 


FfSGIU 


027316 


HS65 


024750 


PAPRTY 


023544 


RDRT3 


011046 


RFHARD 


002730 
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SYMBOL 
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002670 




STARTA 


003060 


TEHP2 


000646 


TTR1B 


023750 


UTER5 


001100 


RPCNT 


000702 




STARTS 


003064 


TEHP3 


000650 


TTR2 


024006 


UTER6 


001 102 


RRHARD 


002750 




STARTC 


003050 


TEX 


024246 


TTR3 


024016 


WTER7 


'»J1104 


RRSOFT 


002710 




STARTD 


003144 


TIB 


000642 


TTR4 


024026 


UTERS 


001106 


RSFQ 


0073A2 




STARTE 


003136 


TINER 


024032 


TTR5 


024030 


UTM 


005730 


RSEX 


0075U 




STARTF 


003122 


TINF 


000636 


UDES 


000552 


UTMO 


005772 


RSF 


007416 




STARTO 


003074 


TINP 


012334 


UNP 


000676 


UTMI 


006034 


RSFR 


007522 




START1 


003244 


TINPA 


012344 


UNX 


000766 


UTM2 


006044 


RSFftX 


007662 




START2 


003376 


TINPB 


012364 


UN1 


000746 


UTn3 


006054 


RSFRO 


007554 




START3 


003412 


TINPBO 


012562 


UN2 


000750 


UTn4 


006136 


RSFR1 


007566 




START4 


003426 


TINPB1 


012410 


UN3 


000752 


UTn4A 


006176 


RSFR2 


007620 




START5 


004144 


TINPC 


012610 


UN4 


000754 


uo 


005424 


RSFO 


00745A 




START6 


004162 


TINPX 


014140 


UNS 


000756 


U1 


005466 


RSF1 


007470 




START7 


004216 


TINPO 


012722 


UN6 


000760 


U2 


005510 


RSR 


007374 




STARTS 


004224 


TINPOA 


013002 


UN7 


000762 


U3 


005524 


RSTAL 


000572 




STAROA 


003172 


TINPOB 


013020 


UNS 


000764 


U3A 


005546 


RTCNT 


000704 




STAROB 


003222 


TINPOC 


013060 


UPS 


000716 


U4 


005634 


RTRN 


000664 




STAR1A 


003256 


TINPOD 


013104 


VECT 


000546 


U4A 


005664 


RTYFL 


000714 




STAR1S 


003302 


TINPOE 


013134 


UC 


000512 


US 


005700 


RTY1 


001050 




STARK 


003342 


TINP1 


013154 


UOATA 


027426 


U6 


005716 


RTY2 


001052 




STAR4A 


003516 


TINP2 


013234 


WEX 


006202 


XOR 


015552 


RTY3 


001054 




STAR40 


003442 


TINP2A 


013314 


WRITE 


005400 


XORS 


015576 


RTY4 


001056 




STAUT 


003032 


TINP2B 


013374 


WRTE 


005420 


YOZ 


011254 


RTY5 


A A 4 A ^ A 

001060 




STAUTO 


003170 


TINP2C 


013422 


WRTSB 


006666 


YOZA 


011322 


RTY6 


A A 4 A ^ A 

001062 




STP 


003612 


TINP3 


013442 


WRTSBO 


006740 


YOZB 


011330 


RTY7 


001064 




STPX 


004130 


TINP4 


0137S6 


URTSB1 


006754 


Y02C 


011350 


RTY8 


AA4 A^ d 

001066 




SUR 


000606 


TKB 


000612 


URTSB2 


006764 


YOZCO 


011440 


RUND 


005004 




TAPG 


021422 


TICS 


000610 


URTSB3 


007040 


Y0ZC1 


■011454 


RUNDA 


005016 




TAPGO 


021434 


THEX 


000564 


URTY 


006246 


Y0ZC2 


011462 


RWNDX 


A A f V / t 

005344 




TAPG1 


021532 


THFLG 


000700 


URTYR 


006300 


YOZO 


011502 


RUNDO 


A A f A f i 

005054 




TAPG2 


021546 


TOB 


000640 


URTYTM 


006274 


YOZDO 


011604 


RUND1 


A A r 4 9 ^ 

005132 




TAPG3 


021564 


TOG 


024232 


URTYO 


006254 


Y0ZD1 


011630 


RUNOIA 


A A r 4 ^ / 

005174 




TAP63A 


021650 


TPS 


000616 


WRTY1 


006362 


Y0ZD2 


011576 


RUND2 


A A r 4 / 

005214 




TAPG3B 


021664 


TPOS 


014150 


WRTY2 


006364 


Y0ZD3 


011622 


RUND3 


A A f ^ ^ / 

005224 




TAPG3C 


021704 


TP0S1 


014162 


WRTY2A 


006426 


Y0Z04 


011556 


RWND4 


A Af A. 

005256 




TAP63D 


021750 


TPS 


000614 


URTY2B 


006446 


YOZE 


011634 


RUND 5 


A A r ^ ?z 

005276 




TAPG3E 


021774 


• TSTAL 


000576 


WRTY3 


006522 


YOZF 


011664 


RUND6 


A A f V 4 £ 

005316 




TAPG3F 


021632 


TTIN 


024050 


WRTY3A 


006540 


Y02FO 


011670 


CVFL 


A 4 / 4 y ^ 

014146 




TAPG4 


022022 


TTINT 


022142 


WRTY4 


006626 


YOZG 


011766 


aERFL 


AAA 71 A 

000710 




TAPG5 


022036 


TTINTO 


022166 


WRTY5 


006662 


YOZH 


012002 


SN 


000540 




TAPG6 


022104 


TTIN1 


024070 


URU 


006222 


YOZO 


011274 


SNPG 


024700 




TAPG7 


022116 


TTIIII2 


024104 


URUX 


006244 


YSTAL 


000600 


SNPT 






TBELA 


A*)/ '>C/ 

0242S4 


TTOUT 


024122 


USTAL 


000574 


• 


= 033436 


SPFLG 


000570 




TBELL 


024250 


TTP 

1 1 K 




UTFR1 


001070 

WW 1 w f w 






STAL 


000670 




TCRLF 


024164 


TTRO 


023672 


UTER2 


001072 






STALL 


012240 




TCRLFA 


024202 


TTR1 


023720 


yTER3 


001074 






START 


003026 




TEMPI 


000644 


TTR1A 


023734 


UTER4 


001076 






. ASS. 


033436 


000 
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